$text =~ m/(.+)\1(?:\1)+/;