>perl -MO=Deparse -lne "printf qq([%s] => %02x\n), $_, ord $_ for split //"

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    printf "[%s] => %02x\n", $_, ord $_ foreach (split(//, $_, 0));
}