perl 利用正则表达式 删除重复单词

假设有一段文本，要把它们中重复的单词删除，可以用正则表达式加以实现，请看以下例子

$_='Pairs is The The The The spring.';

 

while s/\b(\w+) \1\b/$1/gi ;

 

假如没有while则，$_变为

Pairs is The The spring

 

 

注意：

       \1表示匹配的第一个分组，$1也是，但两者使用的地方不同，前者是在模式中，后者是在结果中