#!/usr/bin/perl

$/ = ""; 
$* = 1; 

while (<>) {
#s/-\n//g; 
tr/A-Z/a-z/; 
@words = split(/\W*\s+\W*/, $_); # split into words
foreach $word (@words) {
$wordcount{$word}++; # count the words
}
}
foreach $word (sort keys(%wordcount)) {
printf "%8d\t\t%s\n", $wordcount{$word}, $word;
}