带有标点符号的重复单词的正则表达式

我想要做的是检查彼此相邻的重复单词,但即使两者之间存在标点符号.

例如:

Vivamus Vivamus diam, diam, Vivamus Vivamus diam, diam Vivamus

这里应该有4个不同的点击.

我无法弄清楚为什么这不起作用; 谁能解释为什么,并告诉我正确的代码应该是什么？

谢谢.

(\w*(?:[ ,\.])*?)\1

PS:由于它引起的混乱,我不会说我正在使用Perl引擎.

这(?:是一个非捕获括号,意味着它不会存储匹配.您将需要使用捕获括号.

(\w+)\W+\1