Or even faster (don't change things that don't need changing):

my $string = "abc12defghi\013jkl";
(my $copy = $string) =~ s/([^[:print:]])/sprintf " (0x%02x) ", ord $1/
+ge;
print $copy;
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.