perl, 38 bytes

Result

WA

Code [DL]

print!((oct"b$_001")**.5*99%99)|0for<>

stdin

11101001
11100111
01101001
01011000
11111101
00101101
01110000
01001110
00100100
01011111
01011110
11111011
00101001
10100110
10000100
00101101
01101000
10000101
01101001
10011010
01110110
00000011
00000001
00110111
11110100
01011011
01101011
10111110
10000110
00000000
10011001
10001000
01010001
00011100
10110010
01000111
10101011
00001111
01000100
00010101
11010010
00100000
00001010
01100111
01000010
01110101
11010111
01110011
00000110
01111000

stdout

11111111111111111111111111111111111111111111111111

stderr

strace