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

print "best: $best\n"