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

##</code><code>##

/(\b\w+)\1\b