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