Select Code to Download

my %Words;

...
    }

print "$_ => $Words{$_}\n" foreach (sort keys %Words);

abbrev => abrv
abbreviate => abrvt
...
while => whl
wordlist => wrdlst
words => wrds

sub Abbreviate
{
...
    
return wantarray ? @Result : join " ", @Result;
}