Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

$best = $1, $len = length $1 while $string =~ /((.)\2{$len,})/g;
print "best: $best ($len)\n"

Select or download this
```
best: CCCCCC (6)
```