perl, 45 bytes

Result

AC

Code [DL]

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

stdin

01111000
00101101
11010010
01101001
10010110
10001000
00110101
10001111
10011001
10111110
10101000
11110010
10110011
01110111
01110011
11111010
00111101
01000110
11111101
10000001
01011111
01011011
11111101
01111101
00111111
00000011
00000001
01010110
00100000
00000110
01000010
00001010
00001111
10101011
00110111
00011100
10000000
00111001
10111100
00111100
10100110
01111100
11011011
01001100
01001110
11100111
00000000
00010101
00100100
01101001

stdout

11110100110000000010011001100111111100000000111111

stderr

strace