В простом варианте как-то так:
#!/usr/bin/perl
my %word;
while (<>) {
$word{lc($_)}++ foreach split /\W+/;
}
print "$_ : $word{$_}\n"
foreach reverse sort { $word{$a} <=> $word{$b} } keys %word;
А так чтобы ничего не писать — присылайте файл по почте :)