perl, 38 bytes

Result

WA

Code [DL]

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

stdin

01010001
01111000
00010100
01010101
00001010
01101001
01110010
00000000
00010101
00000011
00101100
10111110
11100110
11001011
11111101
00111100
01100110
11010010
00101101
01110001
11001001
00000001
00011100
00110111
01000010
00001111
10010110
01001110
01101110
11100111
00111001
10011001
11000110
01011011
11100100
01001010
01100100
10101011
10000000
00111110
01111001
01111000
11001100
00100100
10001000
10101011
00000110
01000111
01100011
00110000

stdout

11111111111111111111111111111111111111111111111111

stderr

strace