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