open(DATA, "$errlog") || die "Can not open: $!\n";
my @dat = (<DATA>);
close(DATA);
open(DATA, ">>$errlog") || die "NO GO: $!\n";
                                     
foreach (@dat)
{
	if($_ =~ /patternmatchinghere/gi)
	{
		$counter++;
	}
}
close(DATA);