by@kurgm
AC
$Input|%{+([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1-eq0)}
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
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