$_ = "Paris in THE THE THE THE spring";
1 while s/\b(\w+) \1\b/$1/gi;