$x = pack "B*", do { unpack "B*", $x };