perl, 38 bytes

Result

WA

Code [DL]

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

stdin

00000110
01101101
00000001
00101101
00001011
10100100
01001110
00010101
11010010
01011011
01011100
00011100
01100111
11100111
00000011
11101101
10001000
10011000
11000001
00110111
10011001
11000010
11111101
10100110
01010111
01000010
10100101
00001010
10111110
01000000
11111101
01001001
11110101
00001111
01101001
11100010
11010100
00000000
01111000
10110000
11100110
00000011
00100100
11111100
01001111
10101110
00001101
01110100
10001100
10101011

stdout

11111111111111111111111111111111111111111111111111

stderr

strace