#!/usr/bin/perl

# ph, Phonetics Utility, v. 1.3 05DEC2003
# David Bell @smike.com
# Feel free to embellish and share, but maybe shoot me a copy if altered.
# 
# Limited support right now for Spanish, Dutch and Polish, since I need to
# look up the correct characters and I'm terribly lazy.
#
#ident  "@(#)ph      1.3    12/05/2003 Amalgamated Smike smike.com"

$i=$ARGV[0];
$i =~ tr/a-z/A-Z/;
chop;
$q="NATO";

if ($i eq "") {
     print "\nph, Phonetics Utility\n";
     print "usage:  ph [-bdefhinpsuwy] string\n\n";
     print "uses NATO standard phonetics by default\n";
     print "-b British Royal Air Force (1924-42) and Royal Navy (1917) phonetics\n";
     print "-d German phonetics\n";
     print "-e Spanish phonetics\n";
     print "-f French phonetics\n";
     print "-h Hebrew phonetics\n";
     print "-i Italian phonetics\n";
     print "-n Dutch phonetics\n";
     print "-p Polish phonetics\n";
     print "-s Swahili phonetics\n";
     print "-u U.S. Army (1916) and U.S. Navy (1940) phonetics\n";
     print "-w Western Union phonetics\n";
     print "-y New York City Police phonetics\n\n";
     $q="";
              }
              
@char=split('',$i);

if ($char[0] eq "-") {
     $q=$char[1];
     $i=$ARGV[1];
     $i =~ tr/a-z/A-Z/;
     @char=split('',$i);
                     }

if ($q eq "NATO") {
     print "Using NATO standard phonetics\n\n"}
if ($q eq "B") {print "Using British RAF (1924-42) and Royal Navy (1917) standard phonetics\n\n"}
if ($q eq "D") {print "Using German standard phonetics\n\n"}
if ($q eq "E") {print "Using Spanish standard phonetics\n\n"}
if ($q eq "F") {print "Using French standard phonetics\n\n"}
if ($q eq "H") {print "Using Hebrew standard phonetics\n\n"}
if ($q eq "I") {print "Using Italian standard phonetics\n\n"}
if ($q eq "M") {print "Using undocumented standard phonetics\n\n"}
if ($q eq "N") {print "Using Dutch standard phonetics\n\n"}
if ($q eq "P") {print "Using Polish standard phonetics\n\n"}
if ($q eq "S") {print "Using Swahili standard phonetics\n\n"}
if ($q eq "U") {print "Using U.S. Army (1916) and U.S.N. (1940) standard phonetics\n\n"}
if ($q eq "W") {print "Using Western Union standard phonetics\n\n"}
if ($q eq "Y") {print "Using New York City Police standard phonetics\n\n"}

$z=length($i);

if ($q eq "NATO") {
for $y (0..$z)
 {
   if ($char[$y] eq "A") {print "Alpha\n"}
   if ($char[$y] eq "B") {print "Bravo\n"}
   if ($char[$y] eq "C") {print "Charlie\n"}
   if ($char[$y] eq "D") {print "Delta\n"}
   if ($char[$y] eq "E") {print "Echo\n"}
   if ($char[$y] eq "F") {print "Foxtrot\n"}
   if ($char[$y] eq "G") {print "Golf\n"}
   if ($char[$y] eq "H") {print "Hotel\n"}
   if ($char[$y] eq "I") {print "India\n"}
   if ($char[$y] eq "J") {print "Juliet\n"}
   if ($char[$y] eq "K") {print "Kilo\n"}
   if ($char[$y] eq "L") {print "Lima\n"}
   if ($char[$y] eq "M") {print "Mike\n"}
   if ($char[$y] eq "N") {print "November\n"}
   if ($char[$y] eq "O") {print "Oscar\n"}
   if ($char[$y] eq "P") {print "Papa\n"}
   if ($char[$y] eq "Q") {print "Quebec\n"}
   if ($char[$y] eq "R") {print "Romeo\n"}
   if ($char[$y] eq "S") {print "Sierra\n"}
   if ($char[$y] eq "T") {print "Tango\n"}
   if ($char[$y] eq "U") {print "Uniform\n"}
   if ($char[$y] eq "V") {print "Victor\n"}
   if ($char[$y] eq "W") {print "Whiskey\n"}
   if ($char[$y] eq "X") {print "Xray\n"}
   if ($char[$y] eq "Y") {print "Yankee\n"}
   if ($char[$y] eq "Z") {print "Zulu\n"}
   if ($char[$y] eq "0") {print "Zero\n"}
   if ($char[$y] eq "1") {print "One\n"}
   if ($char[$y] eq "2") {print "Two\n"}
   if ($char[$y] eq "3") {print "Tree\n"}
   if ($char[$y] eq "4") {print "Fower\n"}
   if ($char[$y] eq "5") {print "Fife\n"}
   if ($char[$y] eq "6") {print "Six\n"}
   if ($char[$y] eq "7") {print "Seven\n"}
   if ($char[$y] eq "8") {print "Eight\n"}
   if ($char[$y] eq "9") {print "Niner\n"}
 }
}


if ($q eq "B") {
for $y (0..$z)
 {
# B=British RAF 1924-42 - Royal Navy 1917
   if ($char[$y] eq "A") {print "Ac or Apples\n"}
   if ($char[$y] eq "B") {print "Beer or Butter\n"}
   if ($char[$y] eq "C") {print "Charlie\n"}
   if ($char[$y] eq "D") {print "Don or Duff\n"}
   if ($char[$y] eq "E") {print "Edward\n"}
   if ($char[$y] eq "F") {print "Freddie\n"}
   if ($char[$y] eq "G") {print "George\n"}
   if ($char[$y] eq "H") {print "Harry\n"}
   if ($char[$y] eq "I") {print "Ink\n"}
   if ($char[$y] eq "J") {print "Johnnie\n"}
   if ($char[$y] eq "K") {print "King\n"}
   if ($char[$y] eq "L") {print "London\n"}
   if ($char[$y] eq "M") {print "Monkey\n"}
   if ($char[$y] eq "N") {print "Nuts\n"}
   if ($char[$y] eq "O") {print "Orange\n"}
   if ($char[$y] eq "P") {print "Pip or Pudding\n"}
   if ($char[$y] eq "Q") {print "Queen or Queenie\n"}
   if ($char[$y] eq "R") {print "Robert\n"}
   if ($char[$y] eq "S") {print "Sugar\n"}
   if ($char[$y] eq "T") {print "Toc or Tommy\n"}
   if ($char[$y] eq "U") {print "Uncle\n"}
   if ($char[$y] eq "V") {print "Vic or Vinegar\n"}
   if ($char[$y] eq "W") {print "William or Willie\n"}
   if ($char[$y] eq "X") {print "X-ray or Xerxes\n"}
   if ($char[$y] eq "Y") {print "Yorker or Yellow\n"}
   if ($char[$y] eq "Z") {print "Zebra\n"}

 }
}

if ($q eq "D") {
for $y (0..$z)
 {
# D=GERMAN
   if ($char[$y] eq "A") {print "Anton \n"}
   if ($char[$y] eq "B") {print "Berta \n"}
   if ($char[$y] eq "C") {print "Caesar \n"}
   if ($char[$y] eq "D") {print "Dora \n"}
   if ($char[$y] eq "E") {print "Emil \n"}
   if ($char[$y] eq "F") {print "Friedrich \n"}
   if ($char[$y] eq "G") {print "Gustav \n"}
   if ($char[$y] eq "H") {print "Heinrich \n"}
   if ($char[$y] eq "I") {print "Ida\n"}
   if ($char[$y] eq "J") {print "Julius \n"}
   if ($char[$y] eq "K") {print "Kaufmann \n"}
   if ($char[$y] eq "L") {print "Ludwig \n"}
   if ($char[$y] eq "M") {print "Martha \n"}
   if ($char[$y] eq "N") {print "Nordpol \n"}
   if ($char[$y] eq "O") {print "Otto \n"}
   if ($char[$y] eq "P") {print "Paula \n"}
   if ($char[$y] eq "Q") {print "Quelle\n"}
   if ($char[$y] eq "R") {print "Richard \n"}
   if ($char[$y] eq "S") {print "Samuel \n"}
   if ($char[$y] eq "T") {print "Theodor \n"}
   if ($char[$y] eq "U") {print "Ulrich \n"}
   if ($char[$y] eq "V") {print "Viktor \n"}
   if ($char[$y] eq "W") {print "Wilhelm \n"}
   if ($char[$y] eq "X") {print "Xanthippe\n"}
   if ($char[$y] eq "Y") {print "Ypsilon \n"}
   if ($char[$y] eq "Z") {print "Zacharias\n"}
 }
}

if ($q eq "E") {
for $y (0..$z)
 {
# E=SPANISH
   if ($char[$y] eq "A") {print "Antonio \n"}
   if ($char[$y] eq "B") {print "Barcelona \n"}
   if ($char[$y] eq "C") {print "Carmen \n"}
#   if ($char[$y] eq "CH") {print "Chocolate \n"}
   if ($char[$y] eq "D") {print "Dolores \n"}
   if ($char[$y] eq "E") {print "Enrique \n"}
   if ($char[$y] eq "F") {print "Francia\n"}
   if ($char[$y] eq "G") {print "Gerona \n"}
   if ($char[$y] eq "H") {print "Historia \n"}
   if ($char[$y] eq "I") {print "Ine's \n"}
   if ($char[$y] eq "J") {print "Jose' \n"}
   if ($char[$y] eq "K") {print "Kilo \n"}
   if ($char[$y] eq "L") {print "Lorenzo \n"}
#   if ($char[$y] eq "LL") {print "Llobregat \n"}
   if ($char[$y] eq "M") {print "Madrid\n"}
   if ($char[$y] eq "N") {print "Navarra \n"}
#   if ($char[$y] eq "N~") {print "N~on~o \n"}
   if ($char[$y] eq "O") {print "Oviedo \n"}
   if ($char[$y] eq "P") {print "Pari's \n"}
   if ($char[$y] eq "Q") {print "Querido \n"}
   if ($char[$y] eq "R") {print "Ramo'n \n"}
   if ($char[$y] eq "S") {print "Sa'bado\n"}
   if ($char[$y] eq "T") {print "Tarragona \n"}
   if ($char[$y] eq "U") {print "Ulises \n"}
   if ($char[$y] eq "V") {print "Valencia \n"}
   if ($char[$y] eq "W") {print "Washington \n"}
   if ($char[$y] eq "X") {print "Xiquena \n"}
   if ($char[$y] eq "Y") {print "Yegua \n"}
   if ($char[$y] eq "Z") {print "Zaragoza\n"}
 }
}


if ($q eq "F") {
for $y (0..$z)
 {
# F=FRENCH
   if ($char[$y] eq "A") {print "Anatole \n"}
   if ($char[$y] eq "B") {print "Bernard \n"}
   if ($char[$y] eq "C") {print "C'ecile \n"}
   if ($char[$y] eq "D") {print "Denise \n"}
   if ($char[$y] eq "E") {print "'Emile \n"}
   if ($char[$y] eq "F") {print "Frangois \n"}
   if ($char[$y] eq "G") {print "G'erard\n"}
   if ($char[$y] eq "H") {print "Henri \n"}
   if ($char[$y] eq "I") {print "Isidore \n"}
   if ($char[$y] eq "J") {print "Jean \n"}
   if ($char[$y] eq "K") {print "Kl'eber \n"}
   if ($char[$y] eq "L") {print "Louis \n"}
   if ($char[$y] eq "M") {print "Marcel \n"}
   if ($char[$y] eq "N") {print "Nicole \n"}
   if ($char[$y] eq "O") {print "Oscar \n"}
   if ($char[$y] eq "P") {print "Pierre\n"}
   if ($char[$y] eq "Q") {print "Quital \n"}
   if ($char[$y] eq "R") {print "Robert \n"}
   if ($char[$y] eq "S") {print "Suzanne \n"}
   if ($char[$y] eq "T") {print "Th'er`ese \n"}
   if ($char[$y] eq "U") {print "Ursule \n"}
   if ($char[$y] eq "V") {print "Victor \n"}
   if ($char[$y] eq "W") {print "Wagon \n"}
   if ($char[$y] eq "X") {print "Xavier\n"}
   if ($char[$y] eq "Y") {print "Yvonne \n"}
   if ($char[$y] eq "Z") {print "Zo'e\n"}
 }
}



if ($q eq "H") {
for $y (0..$z)
 {
# H=HEBREW
   if ($char[$y] eq "A") {print "Affula \n"}
   if ($char[$y] eq "B") {print "Binyamina \n"}
   if ($char[$y] eq "C") {print "Carmel \n"}
   if ($char[$y] eq "D") {print "Dalia \n"}
   if ($char[$y] eq "E") {print "Eretz \n"}
   if ($char[$y] eq "F") {print "France \n"}
   if ($char[$y] eq "G") {print "Gedera \n"}
   if ($char[$y] eq "H") {print "Haifa\n"}
   if ($char[$y] eq "I") {print "Israel \n"}
   if ($char[$y] eq "J") {print "Jaffa \n"}
   if ($char[$y] eq "K") {print "Karkur \n"}
   if ($char[$y] eq "L") {print "Lod \n"}
   if ($char[$y] eq "M") {print "Moledet \n"}
   if ($char[$y] eq "N") {print "Naan \n"}
   if ($char[$y] eq "O") {print "Ogen \n"}
   if ($char[$y] eq "P") {print "Pardes \n"}
   if ($char[$y] eq "Q") {print "Queen\n"}
   if ($char[$y] eq "R") {print "Rishon \n"}
   if ($char[$y] eq "S") {print "Sefer \n"}
   if ($char[$y] eq "T") {print "Tveria \n"}
   if ($char[$y] eq "U") {print "Urim \n"}
   if ($char[$y] eq "V") {print "Vered \n"}
   if ($char[$y] eq "W") {print "Wingate \n"}
   if ($char[$y] eq "X") {print "Express \n"}
   if ($char[$y] eq "Y") {print "Yavniel\n"}
   if ($char[$y] eq "Z") {print "Zikhron\n"}
 }
}



if ($q eq "I") {
for $y (0..$z)
 {
# I=ITALIAN
   if ($char[$y] eq "A") {print "Ancona\n"}
   if ($char[$y] eq "B") {print "Bologna\n"}
   if ($char[$y] eq "C") {print "Como\n"}
   if ($char[$y] eq "D") {print "Domodossola\n"}
   if ($char[$y] eq "E") {print "Empoli\n"}
   if ($char[$y] eq "F") {print "Firenze\n"}
   if ($char[$y] eq "G") {print "Genova\n"}
   if ($char[$y] eq "H") {print "Hacca\n"}
   if ($char[$y] eq "I") {print "Imola\n"}
   if ($char[$y] eq "J") {print "Jolly\n"}
   if ($char[$y] eq "K") {print "Kappa\n"}
   if ($char[$y] eq "L") {print "Livorno\n"}
   if ($char[$y] eq "M") {print "Milano\n"}
   if ($char[$y] eq "N") {print "Napoli\n"}
   if ($char[$y] eq "O") {print "Otranto\n"}
   if ($char[$y] eq "P") {print "Pisa/Palermo\n"}
   if ($char[$y] eq "Q") {print "Quartomiglio\n"}
   if ($char[$y] eq "R") {print "Roma\n"}
   if ($char[$y] eq "S") {print "Savona/Siena\n"}
   if ($char[$y] eq "T") {print "Torino\n"}
   if ($char[$y] eq "U") {print "Udine\n"}
   if ($char[$y] eq "V") {print "Venezia\n"}
   if ($char[$y] eq "W") {print "Wagner\n"}
   if ($char[$y] eq "X") {print "Xilofono\n"}
   if ($char[$y] eq "Y") {print "York\n"}
   if ($char[$y] eq "Z") {print "Zara\n"}
 }
}

if ($q eq "M") {
for $y (0..$z)
 {
# M=Mopar
# Completely non-standard, undocumented and unsupported.
# Why?
# Because I can.
# Thanks to Dr. Joe Pfeiffer, Steve Lacker, DJ Mann and Ray Funke for great
# suggestions!
   if ($char[$y] eq "A") {print "Airgrabber \n"}
   if ($char[$y] eq "B") {print "Belvedere \n"}
   if ($char[$y] eq "C") {print "Coronet\n"}
   if ($char[$y] eq "D") {print "Duster \n"}
   if ($char[$y] eq "E") {print "Engle\n"}
   if ($char[$y] eq "F") {print "Fury\n"}
   if ($char[$y] eq "G") {print "Ghia \n"}
   if ($char[$y] eq "H") {print "Hemi\n"}
   if ($char[$y] eq "I") {print "Imperial\n"}
   if ($char[$y] eq "J") {print "Jiffy-Jet\n"}
   if ($char[$y] eq "K") {print "Kingsway\n"}
   if ($char[$y] eq "L") {print "LeBaron \n"}
   if ($char[$y] eq "M") {print "Magnum\n"}
   if ($char[$y] eq "N") {print "Newport\n"}
   if ($char[$y] eq "O") {print "Omni\n"}
   if ($char[$y] eq "P") {print "Polara\n"}
   if ($char[$y] eq "Q") {print "Quadrajet\n"}
   if ($char[$y] eq "R") {print "Roadrunner\n"}
   if ($char[$y] eq "S") {print "Superbird\n"}
   if ($char[$y] eq "T") {print "Twister\n"}
   if ($char[$y] eq "U") {print "Ute\n"}
   if ($char[$y] eq "V") {print "Valiant\n"}
   if ($char[$y] eq "W") {print "Weertman\n"}
   if ($char[$y] eq "X") {print "eXner\n"}
   if ($char[$y] eq "Y") {print "Yellowjacket\n"}
   if ($char[$y] eq "Z") {print "Zeder\n"}
 }
}


if ($q eq "N") {
for $y (0..$z)
 {
# N=DUTCH
   if ($char[$y] eq "A") {print "Anna \n"}
   if ($char[$y] eq "B") {print "Bernhard \n"}
   if ($char[$y] eq "C") {print "Cornelis \n"}
   if ($char[$y] eq "D") {print "Dirk \n"}
   if ($char[$y] eq "E") {print "Eduard \n"}
   if ($char[$y] eq "F") {print "Ferdinand \n"}
   if ($char[$y] eq "G") {print "Gerard \n"}
   if ($char[$y] eq "H") {print "Hendrik\n"}
   if ($char[$y] eq "I") {print "Izaak \n"}
   if ($char[$y] eq "J") {print "Jan \n"}
   if ($char[$y] eq "K") {print "Karel \n"}
   if ($char[$y] eq "L") {print "Lodewijk \n"}
   if ($char[$y] eq "M") {print "Marie \n"}
   if ($char[$y] eq "N") {print "Nico \n"}
   if ($char[$y] eq "O") {print "Otto \n"}
   if ($char[$y] eq "P") {print "Pieter \n"}
   if ($char[$y] eq "Q") {print "Quotient\n"}
   if ($char[$y] eq "R") {print "Rudolf \n"}
   if ($char[$y] eq "S") {print "Simon \n"}
   if ($char[$y] eq "T") {print "Teunis \n"}
   if ($char[$y] eq "U") {print "Utrecht \n"}
   if ($char[$y] eq "V") {print "Victor \n"}
   if ($char[$y] eq "W") {print "Willem \n"}
   if ($char[$y] eq "X") {print "Xantippe\n"}
#   if ($char[$y] eq "I-") {print "Ij: \n"}
#   if ($char[$y] eq "I--") {print "Ijmuiden\n"} 
   if ($char[$y] eq "Y") {print "Ypsilon \n"}
   if ($char[$y] eq "Z") {print "Zaandam\n"}
 }
}



if ($q eq "P") {
for $y (0..$z)
 {
# P=POLISH
   if ($char[$y] eq "A") {print "Adam \n"}
   if ($char[$y] eq "B") {print "Barbara \n"}
   if ($char[$y] eq "C") {print "Celina \n"}
   if ($char[$y] eq "D") {print "Danuta \n"}
   if ($char[$y] eq "E") {print "Ewa \n"}
   if ($char[$y] eq "F") {print "Franciszek \n"}
   if ($char[$y] eq "G") {print "Genowefa \n"}
   if ($char[$y] eq "H") {print "Henryk\n"}
   if ($char[$y] eq "I") {print "Irena \n"}
   if ($char[$y] eq "J") {print "Jadwiga \n"}
   if ($char[$y] eq "K") {print "Karol \n"}
   if ($char[$y] eq "L") {print "Leon \n"}
#   if ($char[$y] eq "L/") {print "L/ukasz \n"}
   if ($char[$y] eq "M") {print "Maria \n"}
   if ($char[$y] eq "N") {print "Natalia \n"}
   if ($char[$y] eq "O") {print "Olga \n"}
#   if ($char[$y] eq "P") {print "Pawel/\n"}
   if ($char[$y] eq "R") {print "Roman \n"}
#   if ($char[$y] eq "S") {print "Stanisl/aw\n"} 
   if ($char[$y] eq "T") {print "Tadeusz \n"}
   if ($char[$y] eq "U") {print "Urszula \n"}
#   if ($char[$y] eq "W") {print "Wl/adysl/aw \n"}
   if ($char[$y] eq "X") {print "Xantypa \n"}
   if ($char[$y] eq "Y") {print "Ygrek\n"}
   if ($char[$y] eq "Z") {print "Zygmunt\n"}
 }
}



if ($q eq "S") {
for $y (0..$z)
 {
# S=SWAHILI
   if ($char[$y] eq "A") {print "Aali \n"}
   if ($char[$y] eq "B") {print "Bibi \n"}
   if ($char[$y] eq "C") {print "Cyprus \n"}
   if ($char[$y] eq "D") {print "Daniel \n"}
   if ($char[$y] eq "E") {print "Elfu \n"}
   if ($char[$y] eq "F") {print "Fiwi \n"}
   if ($char[$y] eq "G") {print "Gombe \n"}
   if ($char[$y] eq "H") {print "Henry \n"}
   if ($char[$y] eq "I") {print "Ida \n"}
   if ($char[$y] eq "J") {print "Jinja\n"}
   if ($char[$y] eq "K") {print "Kenya \n"}
   if ($char[$y] eq "L") {print "Leso \n"}
   if ($char[$y] eq "M") {print "Mtu \n"}
   if ($char[$y] eq "N") {print "Nairobi \n"}
   if ($char[$y] eq "O") {print "Olga \n"}
   if ($char[$y] eq "P") {print "Paul \n"}
   if ($char[$y] eq "Q") {print "Quebec \n"}
   if ($char[$y] eq "R") {print "Robert \n"}
   if ($char[$y] eq "S") {print "Sana \n"}
   if ($char[$y] eq "T") {print "Tanga\n"}
   if ($char[$y] eq "U") {print "Unga \n"}
   if ($char[$y] eq "V") {print "Victor \n"}
   if ($char[$y] eq "W") {print "William \n"}
   if ($char[$y] eq "X") {print "Xavier \n"}
   if ($char[$y] eq "Y") {print "Yatima \n"}
   if ($char[$y] eq "Z") {print "Zanzibar\n"}
 }
}



if ($q eq "U") {
for $y (0..$z)
 {
# U=U.S. Navy 1940 - U.S. Army 1916
   if ($char[$y] eq "A") {print "Affirmative or Able\n"}
   if ($char[$y] eq "B") {print "Baker or Buy\n"}
   if ($char[$y] eq "C") {print "Cast \n"}
   if ($char[$y] eq "D") {print "Dog or Dock\n"}
   if ($char[$y] eq "E") {print "Easy \n"}
   if ($char[$y] eq "F") {print "Fox \n"}
   if ($char[$y] eq "G") {print "George \n"}
   if ($char[$y] eq "H") {print "Hypo or Have\n"}
   if ($char[$y] eq "I") {print "Interrogatory or Item\n"}
   if ($char[$y] eq "J") {print "Jig \n"}
   if ($char[$y] eq "K") {print "King \n"}
   if ($char[$y] eq "L") {print "Love \n"}
   if ($char[$y] eq "M") {print "Mike \n"}
   if ($char[$y] eq "N") {print "Negative or Nap\n"}
   if ($char[$y] eq "O") {print "Option or Opal\n"}
   if ($char[$y] eq "P") {print "Preparatory or Pup\n"}
   if ($char[$y] eq "Q") {print "Queen or Quack\n"}
   if ($char[$y] eq "R") {print "Roger or Rush\n"}
   if ($char[$y] eq "S") {print "Sail or Sail\n"}
   if ($char[$y] eq "T") {print "Tare or Tape\n"}
   if ($char[$y] eq "U") {print "Unit \n"}
   if ($char[$y] eq "V") {print "Victor or Vice\n"}
   if ($char[$y] eq "W") {print "William or Watch\n"}
   if ($char[$y] eq "X") {print "Xray \n"}
   if ($char[$y] eq "Y") {print "Yoke \n"}
   if ($char[$y] eq "Z") {print "Zed\n"}
 }
}



if ($q eq "W") {
for $y (0..$z)
 {
# W=Western Union:
   if ($char[$y] eq "A") {print "Adams \n"}
   if ($char[$y] eq "B") {print "Boston \n"}
   if ($char[$y] eq "C") {print "Chicago \n"}
   if ($char[$y] eq "D") {print "Denver \n"}
   if ($char[$y] eq "E") {print "Easy \n"}
   if ($char[$y] eq "F") {print "Frank \n"}
   if ($char[$y] eq "G") {print "George \n"}
   if ($char[$y] eq "H") {print "Henry \n"}
   if ($char[$y] eq "I") {print "Ida \n"}
   if ($char[$y] eq "J") {print "John\n"}
   if ($char[$y] eq "K") {print "King \n"}
   if ($char[$y] eq "L") {print "Lincoln \n"}
   if ($char[$y] eq "M") {print "Mary \n"}
   if ($char[$y] eq "N") {print "New_York \n"}
   if ($char[$y] eq "O") {print "Ocean \n"}
   if ($char[$y] eq "P") {print "Peter \n"}
   if ($char[$y] eq "Q") {print "Queen \n"}
   if ($char[$y] eq "R") {print "Roger \n"}
   if ($char[$y] eq "S") {print "Sugar\n"}
   if ($char[$y] eq "T") {print "Thomas \n"}
   if ($char[$y] eq "U") {print "Union \n"}
   if ($char[$y] eq "V") {print "Victor \n"}
   if ($char[$y] eq "W") {print "William \n"}
   if ($char[$y] eq "X") {print "X-ray \n"}
   if ($char[$y] eq "Y") {print "Young \n"}
   if ($char[$y] eq "Z") {print "Zero\n"}
 }
}

if ($q eq "Y") {
for $y (0..$z)
 {
# Y=NYC Police phonetics:
   if ($char[$y] eq "A") {print "Adam \n"}
   if ($char[$y] eq "B") {print "Boy \n"}
   if ($char[$y] eq "C") {print "Charlie \n"}
   if ($char[$y] eq "D") {print "David \n"}
   if ($char[$y] eq "E") {print "Edward \n"}
   if ($char[$y] eq "F") {print "Frank \n"}
   if ($char[$y] eq "G") {print "George \n"}
   if ($char[$y] eq "H") {print "Henry \n"}
   if ($char[$y] eq "I") {print "Ida \n"}
   if ($char[$y] eq "J") {print "John\n"}
   if ($char[$y] eq "K") {print "King \n"}
   if ($char[$y] eq "L") {print "Lincoln \n"}
   if ($char[$y] eq "M") {print "Mary \n"}
   if ($char[$y] eq "N") {print "Nora \n"}
   if ($char[$y] eq "O") {print "Ocean \n"}
   if ($char[$y] eq "P") {print "Peter \n"}
   if ($char[$y] eq "Q") {print "Queen \n"}
   if ($char[$y] eq "R") {print "Robert \n"}
   if ($char[$y] eq "S") {print "Sam \n"}
   if ($char[$y] eq "T") {print "Tom\n"}
   if ($char[$y] eq "U") {print "Union \n"}
   if ($char[$y] eq "V") {print "Victor \n"}
   if ($char[$y] eq "W") {print "William \n"}
   if ($char[$y] eq "X") {print "X-ray \n"}
   if ($char[$y] eq "Y") {print "Young \n"}
   if ($char[$y] eq "Z") {print "Zebra\n"}
 }
}

print "\n";