perl, 43 bytes

Result

WA

Code [DL]

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

stdin

00110111
11111101
10000000
00111101
00100101
10011001
10001000
00100100
10111001
11011000
11111111
00000000
01111000
00010100
00011100
11100111
01111110
10110010
01100011
11100111
01101001
11010010
00001111
11001111
01001101
00000110
01100100
01000110
10000001
00111110
01000010
00000001
00000010
10111110
10010010
11101101
10001001
01011011
01000101
01001110
10110000
11010000
00010101
00001010
11100111
00101101
10101011
00001000
11101110
00000011

stdout

11001111011110111101111001010011010111111011111011

stderr

strace