my $counter = 0;
open LOG, "< $errlog" or die 'Can not open: ', $!;
$counter += () = /patternmatchinghere/gi while <LOG>;
close LOG;