perl, 42 bytes

Result

WA

Code [DL]

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

stdin

10001000
11100000
11100111
11100011
10111101
11100100
11100110
00111101
00001010
00000011
10011110
01001001
10111110
00110111
00011100
10101110
10001000
11110011
10001000
10011001
00000001
10101011
10111011
01100011
00100010
01011011
01111000
00001111
00010001
00010101
00100100
11001011
11110111
11111000
11110001
00000110
00000000
01101001
00101101
01100010
10100001
01101011
11111101
10000110
00101010
01001110
11010010
00100111
10101111
01000010

stdout

111111111111111111111111111111111

stderr

strace