#!/usr/bin/perl -w
use strict;

my $string = "abc12defghi\013jkl";

for (split //, $string) {
    print /[[:print:]]/ ? $_ : sprintf " (0x%02x) ", ord $_ ;
}
print "\n";
__END__
abc12defghi (0x0b) jkl