Help for this page

Select Code to Download


  1. or download this
    $_="theeee";
    
    if (m/\w*(\w+)(\1{1,})/si){
        print $&;
    }