($out = $string) =~ s/(.)/substr unpack('B8', $1), 1/eg;