salami ~/irclogs % grep '\' */*/* | perl -nle 'm|<[ +\@]?(.*?)>| && $c{$1}++; END { print "$_: $c{$_}" for sort { $c{$b} <=> $c{$a} } keys %c;}' | head -n 6 oggis_: 23 resiak: 16 smcv: 10 Cillian: 6 Robot101: 6 daf: 5