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