$_="theeee";

if( m/\w*?(\w+)(\1+)/ )
	{
    print "\$&: $&\n\$1: $1\n\$2: $2\n";
	}

##</code><code>##

$_="theeee";

if( m/\w*?(\w+)(\1+)/ )
	{
    print "\$&: $&\n\$1: $1\n\$2: $2\n";
	}