Fetching contributors…
Cannot retrieve contributors at this time
10 lines (8 sloc) 118 Bytes
while (<>) {
for (split(/\W+/)) {
$freq{$_}++;
}
}
for (sort keys %freq) {
print "$_ -- $freq{$_}\n";
}