Result

AC

Code [DL]

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

stdin

01000010
01101001
00101011
01100100
01011011
11001011
00100100
11101000
00010101
10011001
11010100
10110011
10101000
10111101
11011100
10000010
10101011
10011001
10111110
01011100
11111111
01011011
00000011
10101100
00000000
10001000
10111011
00001010
00111010
00101101
11010010
11000010
01111000
00000110
11110111
00100001
00010111
01101010
00111111
11000111
11100111
00011100
10101001
11111101
00000001
10011010
00001111
01001110
00110111
01110010

stdout

11001010110000001110011011010110110000001101101110

stderr

strace