Help for this page
Select Code to Download
Select
or
download this
$_="theeee"; if (m/\w*(\w+)(\1{1,})/si){ print $&; }