
<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:courier,monaco,monospace,sans-serif;font-size:10pt">perl -ne 's/\s//g; s/@.*$//; $h{$_}++; END { print $_, "\n" for sort keys %h}'<br></div></body></html>