$_ = "fox comes and fox goes into forest" s/(fox.+?forest)/the $1/; print;