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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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