$str = pack "H*", $str;