denato.pl

#!/usr/bin/perl -w
use strict;

my %table = (
    A => "ALFA",
    B => "BRAVO",
    C => "CHARLIE",
    D => "DELTA",
    E => "ECHO",
    F => "FOXTROT",
    G => "GOLF",
    H => "HOTEL",
    I => "INDIA",
    J => "JULIETT",
    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 => "XRAY",
    Y => "YANKEE",
    Z => "ZULU",
    0 => "ZERO",
    1 => "ONE",
    2 => "TWO",
    3 => "THREE",
    4 => "FOUR",
    5 => "FIVE",
    6 => "SIX",
    7 => "SEVEN",
    8 => "EIGHT",
    9 => "NINER"
);

my $commandline = @ARGV ? $ARGV[0] : '';

my @words = split /\s+/, $commandline;

foreach my $word (@words) {
    keys %table;    # reset each operator..
    while ( my ( $key, $value ) = each %table ) {
        if ( uc($word) eq $value ) {
            print lc($key);
            goto next_word;
        }
    }
    print lc( substr( $word, 0, 1 ) ) . '?';
    next_word:
}
print "\n";