Select Code to Download

#!/usr/bin/perl
use warnings;  
...
cancel 1
declArE 2
pal 0

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

words = ["anyone", "cancel", "declArE", "perlmonks", "pal"]
print(*((word,word.upper().count('E')) for word in words if 'A' in wor
+d.upper()))