use strict 'vars';
my %count;

while (<>) {
  chomp;
  my @words = split /\W+/, $_;
  for my $word (@words) {
    next if $word eq "";
    $count{lc $word} += 1;
  }
}

for my $word (sort {$count{$b} <=> $count{$a}} keys %count) {
  printf "%12s %4d\n", $word, $count{$word};
}