while (<>) {
    printf q/%x /, $_ for map ord, split //;
    print "\n";
}