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