Select Code to Download

my $string = "helloworldhellohellohihellohiworld";
my $length = length $string;
...
}
$dups{$_} ++ for keys %dups;
for (keys %dups) {print $dups{$_},' occurrences of "',$_,'"',"\n"}