http://www.perlmonks.org?node_id=359264

my %hash = ( 25 => '.', 26 => '-', 27 => 'w', 2B => '_', 30 => ';', 34 => '?', 42 => 'I', 43 => 'H', 45 => 'N', 46 => 'M', 49 => 'B', 4A => 'A', 52 => 'Y', 54 => '_', 5A => 'Q', 5C => 'W', 5F => 'T', 60 => 'k', 61 => 'j', 62 => 'i', 63 => 'h', 64 => 'o', 65 => 'n', 66 => 'm', 67 => 'l', 68 => 'c', 69 => 'b', 6A => 'a', 6C => 'g', 6D => 'f', 6E => 'e', 6F => 'd', 72 => 'y', 73 => 'x', 78 => 's', 79 => 'r', 7A => 'q', 7B => 'p', 7C => ',', 7D => 'v', 7E => 'u', 7F => 't', 98 => '"', 99 => "'", 9F => '"', );