for('a','anyone','cancel','declare','perlmonks'){$i=()=/e/g;print"$_: $i\n"if(/a/);}

##</code><code>##

/a/&&print"$_: ".y/e//.$/for'a','anyone','cancel','declare','perlmonks'

##</code><code>##

a: 0
anyone: 1
cancel: 1
declare: 2

##</code><code>##

a
anyone
cancel
declare
perlmonks

##</code><code>##

perl -lne"/a/&&print$_.': '.y/e//" t1.txt

##</code><code>##

perl -lnE"/a/&&say$_.': '.y/e//" t1.txt