You can keep seperate counts in a hash,

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

Wherever you find a match, increment the corresponding key,

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

and so on. To print out the results,

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