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

##</code><code>##

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