by@kurgm
AC
$Input|ForEach{echo(+([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1-eq0))}
00011100 11100100 00000011 10001000 10101000 01011011 01101000 01010001 01001110 01000010 01100110 11110000 00001000 10011111 11010010 11000000 10000101 11011100 10111110 01101001 00001111 10010110 10111111 00111100 00010101 11011001 00110111 00000000 00001010 10110110 10011001 10101011 00101101 00000110 10100001 11100111 00100100 01110101 11000111 11111000 00101011 11111101 10011010 00000001 01000010 01111000 11010100 00001101 00100011 10101011
1 0 1 1 0 1 0 0 1 1 0 0 0 0 1 0 0 0 1 1 1 0 0 0 1 0 1 1 1 0 1 1 1 1 0 1 1 0 0 0 0 1 0 1 1 1 0 0 0 1