#!/usr/bin/perl use strict; my %ALPHA = map {uc(substr($_,0,1))=>$_} qw( Alpha Bravo Charlie Delta Echo Foxtrot Golf Hotel India Juliett Kilo Lima Mike November Oscar Papa Quebec Romeo Sierra Tango Uniform Victor Whiskey X-ray Yankee Zulu ); while() { chomp; print $_, "\n"; print join(' ',map {$ALPHA{uc($_)}||$_} (split(//,$_))),"\n"; }