Help for this page
#!/usr/bin/perl -w ... $count ++; }
anyone: 1 cancel: 1 declare: 2
perl -e 'for('anyone','cancel','declare','perlmonks'){$i=()=/e/g;print +"$_: $i\n"if(/a/);}'