perl, 43 bytes

Result

WA

Code [DL]

print((1+8*("0b"+$_))**0.5%2-1?0:1),$\for<>

stdin

01100010
01111000
11101000
11111101
00010100
00000001
00101101
10110001
00101001
10000001
10011001
10111110
00001111
00110111
01011111
11010010
00011101
01011011
11100010
10001000
00100101
01001111
00100110
00010011
01110111
11001101
00001010
00000010
00000000
00000011
01110011
10010001
01001110
00011100
01001100
00111011
11111011
11100111
10000101
11110010
00001011
00000011
00010101
01101001
01000010
01000011
10111110
00100100
10101011
00000110

stdout

01100111001100010110010101111110111001011101001011

stderr

strace