use strict;
my $count; my @array;
open FILE, "filename";
 
while (<FILE>){ push @array, $_; }
 
  foreach $a(@array){
     if ($a =~ m/whatever/ ) { $count ++; }
  }
print $count,"\n";