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