Help for this page
use strict; use warnings; ... $best = $1, $len = length $1 while $string =~ /((.)\2{$len,})/g; print "best: $best ($len)\n"
best: CCCCCC (6)