perl, 43 bytes

Result

WA

Code [DL]

print sqrt(oct(0b.$_)*8+1)%2==1?1:0 while<>

stdin

10111111
10001000
00100100
10100011
10111110
00001010
11111101
11011110
10000010
00000011
11010010
11110101
01000010
10011001
10011101
11111001
10001000
00011110
10101010
01100101
10101011
00000000
01110100
10001100
00001111
01011011
10010011
10110001
01101001
11100000
00000110
00000001
00110010
01100111
00011100
11011001
00010101
01111000
01000011
11111111
01100100
10111000
10110000
10100000
11111000
11100111
01001110
00101101
00101101
00110111

stdout

00010000000000000100010000011001101001000011001001

stderr

strace