#!/usr/bin/perl -w
# Quick script that spells its arguments with the NATO phonetic alphabet
# 2007 Ben Winslow
use strict;

my ($phonetic);

my $nato = {
	'a' => 'alpha',		'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' => 'whiskey',	'x' => 'x-ray',
	'y' => 'yankee',	'z' => 'zulu',		' ' => 'space'
};

foreach $_ (split(//, join(' ', @ARGV))) {
	if (defined($phonetic = $nato->{lc($_)})) {
		$phonetic = uc($phonetic) if ($_ eq uc($_));
	} else {
		$phonetic = $_;
	}
	print "$phonetic ";
}
print "\n";