perl -ne 's/\s//g; s/@.*$//; $h{$_}++; END { print $_, "\n" for sort keys %h}' -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20071026/80e76865/attachment.html