#!perl-p
s/.+/!(0b$&001**.5*99%99)|0/e