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

11111101
10101011
00100100
00000000
11111011
00011100
10101011
00000100
10011001
10011111
11110111
00000110
10111110
11101001
01000010
10001000
10101111
00001111
01111000
11010010
00100110
11100111
11011000
01001100
11111001
11101010
00110111
11101011
10100100
00001010
01011000
00000001
01111010
01011011
10010000
00010101
00011000
01001110
10001111
00000011
00001010
00101101
11001011
11101101
10110111
01101001
11010100
10000111
01010001
10001010

stdout

11111101
10101011
00100100
00000000
11111011
00011100
10101011
00000100
10011001
10011111
11110111
00000110
10111110
11101001
01000010
10001000
10101111
00001111
01111000
11010010
00100110
11100111
11011000
01001100
11111001
11101010
00110111
11101011
10100100
00001010
01011000
00000001
01111010
01011011
10010000
00010101
00011000
01001110
10001111
00000011
00001010
00101101
11001011
11101101
10110111
01101001
11010100
10000111
01010001
10001010

stderr

strace