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;} }'