perl 利用正则表达式 删除重复单词
假设有一段文本，要把它们中重复的单词删除，可以用正则表达式加以实现，请看以下例子
$_='Pairs is The The The The spring.';
?
while s/\b(\w+) \1\b/$1/gi ;
假如没有while则，$_变为
Pairs is The The spring
注意：
? ? ? ?\1表示匹配的第一个分组，$1也是，但两者使用的地方不同，前者是在模式中，后者是在结果中
