sub Abbreviate
{
my @Result;

while (local $_ = shift)
    {
    last if ! defined $_;
    my $Abbrev;

    $Abbrev = substr $_, 0, 1, "";
    if (length ($_) > 4)
        {
        tr/A-Z/a-z/;
        tr/a-z//cd;
        tr/aeiou//d;
        s/(.)\1+/$1/gi;
        s/ck/k/g;
        s/ptn/pn/g;
        s/tng/tg/g;
        s/thr/tr/g;
        s/vnt/vt/g;
        s/ltn/ln/g;
        s/lb/b/g;
        s/tt/t/g;
        }
        
    $Abbrev .= $_;
    push @Result, $Abbrev;
    }
    
return wantarray ? @Result : join " ", @Result;
}