my @words = ("anyone", "cancel", "declArE", "perlmonks", "pal");
print "$_: ",tr/eE//, "\n" for grep{tr/aA//;}@words;