in reply to How To Do This Better?

I'd use: 
while (<FILE>) { $count{lc $1}++ while /([a-zA-Z])/g }

[download]
Is that too short or succinct for anyone?

Replies are listed 'Best First'.
RE: RE: How To Do This Better?
by japhy (Canon) on Apr 15, 2000 at 14:58 UTC
    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 :)
[reply]
[d/l]

In Section Seekers of Perl Wisdom