#!/usr/bin/perl -w
use strict;
my @words = ("anyone", "cancel", "declare", "perlmonks");
my $count = 0;
foreach (@words) {
if ($words[$count] =~ m/a/i) {
my $number = () = $words[$count] =~ /e/gi;
print "$words[$count]: $number\n";
}
$count ++;
}
####
anyone: 1
cancel: 1
declare: 2
##
##
perl -e 'for('anyone','cancel','declare','perlmonks'){$i=()=/e/g;print"$_: $i\n"if(/a/);}'