perl, 44 bytes

Result

AC

Code [DL]

$A=(1+8*oct"0b$_")**.5,print$A-~~$A?0:1for<>

stdin

11111101
00001010
11100011
10000011
00001110
01000010
00000001
00010110
01111000
11110010
00100100
11010010
11100111
00110001
11000000
10111110
00000011
00001001
11110111
00100000
00011100
11110011
01100000
10101011
00001100
01101001
01001110
00000000
11100000
00010101
11101001
00100111
00100101
00000110
00110111
10001000
00101101
00100100
01101101
11000100
01001000
00101000
11111011
00010000
00011011
10011001
00001111
01011011
11010011
01000010

stdout

11000110101110011000100101110100011111000000011101

stderr

strace