open( INFILE, "<$filename" )      || die "$!\n";
open( OUTFILE, ">>dataload.errs" ) || die "$!\n";

my %total;

while ( $line = <INFILE> ) {
    if ( "***M" eq substr $line => 0, 4 ) {
      print OUTFILE $line;
      $total{'***'}++
    }

    if ( "!!!" eq substr $line => 0, 3 ) {
      print OUTFILE $line;
      $total{'!!!'}++
    }

    if ( "@@@" eq substr $line => 0, 3 ) {
      print OUTFILE $line;
      $total{'@@@'}++
    }
}

close( INFILE );
close( OUTFILE );

print "$_ $total{$_}\n" for keys %total
[download]

print "Total errors for $_: $total{$_} \n" for keys %total
[download]