$_ x=3,print/(\w(\w)).*\2(\w).*(\3\w)/s,$/for<>