perl, 42 bytes

Result

WA

Code [DL]

say+($_=sqrt 1+8*oct"0b$_")-int?0:1while<>

stdin

10111110
11001111
00110011
11111100
11100111
10010010
01001101
11010010
01110100
00111110
00001011
10010110
00010000
00110111
10001000
01001110
00000011
01111000
10110010
10101100
01011011
00000111
00011101
01010101
01000010
00001111
00100100
11000001
00000110
00011100
00000001
00000000
00100010
00100111
00101101
11111101
10011001
10101011
00100110
10000000
11011110
10000111
01000011
00001111
01101001
01001110
11011111
00010101
01010001
00001010

stdout

stderr

strace