This wasn't very difficult to make, but I think what it does is pretty cool. You type something in ,hit enter, and it returns the pager code for what you typed in. I tested it on Linux and it worked, so here it is:

#!/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','1
+17',
'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";
}
[download]

-- ZDog (Zenon Zabinski)