Select Code to Download

while($text=~/\b(\w+)\b(?=.*\b\1\b)/g){
    $words{$1} //= 1;  # initialize empty value to one
    $words{$1}++;
}

use strict;
use warnings;
...
foreach my $key (keys %words){
    say "$key: $reps{$key}";
}