$_="theeee";

if (m/\w*(\w+)(\1{1,})/si){
	print $&;
}