##
/a/&&print"$_: ".y/e//.$/for'a','anyone','cancel','declare','perlmonks'
##
##
a: 0
anyone: 1
cancel: 1
declare: 2
##
##
a
anyone
cancel
declare
perlmonks
##
##
perl -lne"/a/&&print$_.': '.y/e//" t1.txt
##
##
perl -lnE"/a/&&say$_.': '.y/e//" t1.txt