a stupid perl script from my childhood

alfa.pl

#!/usr/bin/perl -w

use strict;

my %letters=(
 "A" => "ALFA",
 "B" => "BRAVO",
 "C" => "CHARLIE",
 "D" => "DELTA",
 "E" => "ECHO",
 "F" => "FOXTROT",
 "G" => "GOLF",
 "H" => "HOTEL",
 "I" => "INDIA",
 "J" => "JULIET",
 "K" => "KILO",
 "L" => "LIMA",
 "M" => "MIKE",
 "N" => "NOVEMBER",
 "O" => "OSCAR",
 "P" => "PAPA",
 "Q" => "QUEBEC",
 "R" => "ROMEO",
 "S" => "SIERRA",
 "T" => "TANGO",
 "U" => "UNIFORM",
 "V" => "VICTOR",
 "W" => "WHISKY",
 "X" => "X-RAY",
 "Y" => "YANKEE",
 "Z" => "ZULU",
);

while (<>){
 chomp;
 my @l=grep {m/[A-Z]/} map {uc} split(//,$_);
 print @letters{@l},"\n" if @l;
}