vim, 122 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 70 6f 77 28  66 6c 6f 6f 72 28 73 71  |cc.=pow(floor(sq|
00000060  72 74 28 40 61 29 29 2c  32 29 3d 3d 40 61 0a 1b  |rt(@a)),2)==@a..|
00000070  6a 5e 71 34 39 40 7a 5a  5a 0a                    |j^q49@zZZ.|
0000007a

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>=pow(floor(sqrt(@a)),2)==@a<NL><Esc>j^q49@zZZ<NL>

stdin

11100100
00101111
01001100
10110011
10000110
10100111
00110011
01000111
10011001
11010010
00000011
01001110
11100110
01011011
10010110
01111000
00011100
10111110
11100111
00101000
01000101
10001000
01101001
00101110
00001010
00101101
11000110
00010000
10011110
00110111
00001101
11010101
10001000
00011001
01100101
00000011
00000001
11101101
00100100
01000010
00000000
10101011
10010100
00001111
11111110
11111101
00010101
00000110
00100000
10011010

stdout

11100100
00101111
01001100
10110011
10000110
10100111
00110011
01000111
10011001
11010010
00000011
01001110
11100110
01011011
10010110
01111000
00011100
10111110
11100111
00101000
01000101
10001000
01101001
00101110
00001010
00101101
11000110
00010000
10011110
00110111
00001101
11010101
10001000
00011001
01100101
00000011
00000001
11101101
00100100
01000010
00000000
10101011
10010100
00001111
11111110
11111101
00010101
00000110
00100000
10011010

stderr

strace