$words{$1} ++ while $text =~ m{$rxWords}g;