Sorting isn't a particularly efficient way of finding the maximum length, but unless your strings are huge, it probably won't matter too much.
print +( sort{ length $b <=> length $a } $s =~ m[((.)\2+)]g )[ 0 ];;
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.