Select Code to Download

$str = join '', map { chr } unpack( "(H2)*", $str );

$str = pack "C*", unpack "(H2)*", $str;