I will roast myself alive for showing you this code:

{ $count{lc $1}++ while (defined $_ and /([a-zA-Z])/g) or (defined($_ 
+= <FILE>) and redo) }
[download]

That's the kind of thing I strive for :)