#!/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";
}

##</code><code>##

$ time ./11116620.pl < Frankenstein.txt > orig.out

real	0m9.381s
user	0m9.366s
sys	0m0.007s
$ time ./wordcount.pl < Frankenstein.txt > hippo.out

real	0m0.089s
user	0m0.081s
sys	0m0.008s
$ time ./tybalt.pl < Frankenstein.txt > tybalt.out

real	0m0.090s
user	0m0.084s
sys	0m0.005s