vim, 115 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 22 61  |@g*2+@h)*8+1.."a|
00000050  63 63 12 3d 66 6d 6f 64  28 73 71 72 74 28 40 61  |cc.=fmod(sqrt(@a|
00000060  29 2c 31 29 3d 3d 30 0a  1b 6a 5e 71 34 39 40 7a  |),1)==0..j^q49@z|
00000070  5a 5a 0a                                          |ZZ.|
00000073

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>"acc<C-R>=fmod(sqrt(@a),1)==0<NL><Esc>j^q49@zZZ<NL>

stdin

00000110
00011101
10001000
00010101
00011100
00100100
11000110
01000010
10011111
10011010
10010111
11100111
01111110
10100001
00000001
00001010
01011110
10011001
11101001
00110111
01001101
00000011
01100001
10100111
11111101
10110110
01001000
00000000
00110100
11100011
01100010
01011011
01111000
10000110
01001110
11111011
11010010
00010110
11110010
00001111
10101011
01100011
01111000
00001010
11110111
01101001
00101101
10111001
10111110
11011111

stdout

00000110
00011101
10001000
00010101
00011100
00100100
11000110
01000010
10011111
10011010
10010111
11100111
01111110
10100001
00000001
00001010
01011110
10011001
11101001
00110111
01001101
00000011
01100001
10100111
11111101
10110110
01001000
00000000
00110100
11100011
01100010
01011011
01111000
10000110
01001110
11111011
11010010
00010110
11110010
00001111
10101011
01100011
01111000
00001010
11110111
01101001
00101101
10111001
10111110
11011111

stderr

strace