$string =~ /\A(.*)\z/s or die; $string = $1; 

##</code><code>##

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

##</code><code>##

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