Select Code to Download

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

/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