#!/usr/bin/env perl 
use strict;
use warnings;

my %excluded = map { $_ => 1 }
    qw( a about although also an and another are as at be been
    before between but by can do during for from has how however in into is
    it many may more most etc );
my %count;

{
    local $/ = "";
    while (<>) {
        tr {A-Z':@~,.()?*%/[]="-}{a-z}d;
        foreach (split) {
            $count{$_}++ unless $excluded{$_};
        }
    }
}

foreach my $word (sort { $count{$a} <=> $count{$b} or $a cmp $b } keys %count) {
    print "$count{$word} $word\n";
}