$x = pack "C*", do { unpack "C*", $x }; # wrong