my %count;
## ...
if( "!!!" eq substr $line => 0, 3 ) {
  $count{ "!!!" }++;
  print OUTFILE $line;
}
## ...
print "Total errors for $_: $count{ $_ }\n" for qw( @@@ *** !!! );