Select Code to Download

c:\Perl_524>perl -anE"/a/&&say$_,' :'.y/$_/e/for@F"
anyone cnacel declare perlmonks
anyone :0
cnacel :0
declare :0

c:\Perl_524>perl -anE"/a/&&say$_.' :'.y/e/e/for@F"
anyone cancel declare perlmonks
anyone :1
cancel :1
declare :2

c:\Perl_524>perl -anE"/a/&&say$_.' :'.y/e//for@F"
anyone cancel declare perlmonks
anyone :1
cancel :1
declare :2

use feature 'say';
while (<>) {
    @F = split(' ');
    /a/ and say $_ . ' :' . tr/e// foreach (@F);
}

~$ perl -anE'/a/&&say"$_ :".y/e//for@F'
anyone cancel declare perlmonks
anyone :1
cancel :1
declare :2

$ perl -E'/a/&&say"$_ :".y/e//for qw/anyone cancel declare perlmonks/'
anyone :1
cancel :1
declare :2