vim, 113 bytes

Result

WA

Code [DL]

00000000  71 7a 22 61 78 22 62 78  22 63 78 22 64 78 22 65  |qz"ax"bx"cx"dx"e|
00000010  78 22 66 78 22 67 78 22  68 73 12 3d 28 40 61 2a  |x"fx"gx"hs.=(@a*|
00000020  31 32 38 2b 40 62 2a 36  34 2b 40 63 2a 33 32 2b  |128+@b*64+@c*32+|
00000030  40 64 2a 31 36 2b 40 65  2a 38 2b 40 66 2a 34 2b  |@d*16+@e*8+@f*4+|
00000040  40 67 2a 32 2b 40 68 29  2a 38 2b 31 0a 1b 63 63  |@g*2+@h)*8+1..cc|
00000050  12 3d 66 6d 6f 64 28 73  71 72 74 28 40 40 29 2c  |.=fmod(sqrt(@@),|
00000060  31 29 3d 3d 30 0a 1b 6a  5e 71 34 39 40 7a 5a 5a  |1)==0..j^q49@zZZ|
00000070  0a                                                |.|
00000071

Disassembly

qz"ax"bx"cx"dx"ex"fx"gx"hs<C-R>=(@a*128+@b*64+@c*32+@d*16+@e*8+@f*4+@g*2+@h)*8+1<NL><Esc>cc<C-R>=fmod(sqrt(@@),1)==0<NL><Esc>j^q49@zZZ<NL>

stdin

00001111
10001110
11100111
11001100
01111000
01101000
00101101
11100001
00011100
10011001
01110010
10011001
01000010
10110010
10001001
10000101
10111110
10010001
00000000
10011010
01101001
01011011
00010101
10111001
00001010
00110111
00001001
00011011
01000010
01010001
10001000
00000110
01011001
00000101
10101011
00000011
00100100
01010010
11010010
11111101
10000100
00000001
10000011
11001001
11011011
10100000
01000101
11111010
01001110
00001011

stdout

00001111
10001110
11100111
11001100
01111000
01101000
00101101
11100001
00011100
10011001
01110010
10011001
01000010
10110010
10001001
10000101
10111110
10010001
00000000
10011010
01101001
01011011
00010101
10111001
00001010
00110111
00001001
00011011
01000010
01010001
10001000
00000110
01011001
00000101
10101011
00000011
00100100
01010010
11010010
11111101
10000100
00000001
10000011
11001001
11011011
10100000
01000101
11111010
01001110
00001011

stderr

strace