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

00001010
10001001
00001100
01010100
00000011
01111000
11010100
00110011
11010110
00000001
01011011
11011100
01100110
11100111
11010010
00001010
00001111
11001100
11111101
10000010
00010101
01101110
01101010
01101011
10111110
00100011
10111000
11010101
10001000
10010001
00011100
10111001
00111011
00001011
10011001
10101011
01000010
11100010
01001110
00000111
00100100
00000110
00000000
10110101
01010111
01110100
00010101
00110111
00101101
01101001

stdout

00001010
10001001
00001100
01010100
00000011
01111000
11010100
00110011
11010110
00000001
01011011
11011100
01100110
11100111
11010010
00001010
00001111
11001100
11111101
10000010
00010101
01101110
01101010
01101011
10111110
00100011
10111000
11010101
10001000
10010001
00011100
10111001
00111011
00001011
10011001
10101011
01000010
11100010
01001110
00000111
00100100
00000110
00000000
10110101
01010111
01110100
00010101
00110111
00101101
01101001

stderr

strace