(my $copy = $ARGV[0]) =~ s/([^[:print:]])/sprintf " (0x%02x) ", ord $1/ge;
print $copy;