$text =~ m/(.+)(?:\1){2,}/;