while (my ($word) = (lc $word) =~ /[a-z]{2,}/g) {