Result

AC

Code [DL]

$Input|%{+([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1-eq0)}

stdin

10010000
10101011
01001110
00011010
10011010
00011100
11111100
00101001
00100010
11001111
10001000
10100000
11101011
01110011
00000001
00111110
00001111
01101001
01011011
00000111
10111110
01101110
01111111
00110111
00000011
01001010
10011001
10001010
01011100
00000000
10100011
00010101
11010010
01100000
01101010
00000001
10111011
00001010
01000010
00001010
00100100
01001011
00101101
10101101
00000110
01101011
01111000
00100011
11111101
11100111

stdout

0
1
1
0
0
1
0
0
0
0
1
0
0
0
1
0
1
1
1
0
1
0
0
1
1
0
1
0
0
1
0
1
1
0
0
1
0
1
1
1
1
0
1
0
1
0
1
0
1
1

stderr

strace