Select Code to Download

my $len = 0;
my $best = "";
...
}

print "best: $best\n"

my $best = "";
while ($string =~ /((.)\2+)/g) {
...
}

print "best: $best\n"

my $best = "";
$best = $1 while $string =~ /((.)\2*)(*SKIP)(?(?{length $^N <= length 
+$best})(*FAIL))/g;

print "best: $best\n"