in reply to Pack uneven length hex

$string =~ s/(.)/sprintf("%02x",ord($1))/egs;

[download]

In Section Seekers of Perl Wisdom