#!/usr/bin/perl

print "\nThis program converts A-Z, a-z to pager code. Just type in a word
and press enter. WARNING: Do not be alarmed if some characters appear
upsidedown.\n\n"; 
%code =('A','8','a','8','B','13','b','13','C','6','c','6','D','0','d','0',
'E','3','e','3','F','9','f','9','G','6','g','6','H','4','h','4','I','1','i',
'1','J','7','j','7','k','15','K','15','l','1','L','1','M','117','m','117',
'n','17','N','17','o','0','O','0','p','9','P','9','q','0','Q','0','r','12',
'R','12','s','5','S','5','t','7','T','7','u','17','U','17','v','4','V','4',
'w','44','W','44','x','8','X','8','y','4','Y','4','z','2','Z','2');
while (<STDIN>) {
s/([A-Za-z])/$code{$1}/g; 
print;
print "\n";
}