my %count;
@count(qw/@@@ *** !!!/) = (0) x 3;

##</code><code>##

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

##</code><code>##

printf "Total errors for %s: %d\n", $_, $count{$_}
    for keys %count;