Help for this page
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;} }'
$ONELINER somelog.txt >> dataload.errs 2> cts.txt cat somelog.txt | $ONELINER >> dataload.errs