use strict;
use warnings;

##</code><code>##

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

##</code><code>##

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