my @string = ('email.address@email.com',
'email.address@email.com',
'email.address@email.com',
'email.address@email.com',
             );

my $count = 0;
foreach (@string) {
   if ($_=~m/email.address\@email.com/i) {
      print "$_\n";
   }
}