Select Code to Download

use strict;
use warnings;

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

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