perl -ne '++$cts{$1} && print if /^(\*{3}M|\!{3}|\@{3})/; END { while(my($k,$v)=each %cts){printf STDERR "Total errors for %s: %d\n", $k, $v;} }'

##</code><code>##

$ONELINER somelog.txt >> dataload.errs 2> cts.txt
cat somelog.txt | $ONELINER >> dataload.errs