join("_", unpack("H32V*", $string));

##</code><code>##

my @temp = unpack("H32V*", $string);
join("_", @temp);