如何使用单个正则表达式从字符串中删除重复字符的单词？

Question

我需要从 Perl 字符串中删除任何包含重复字符的单词。我可以使用 /e 标志：

$string =~ s/(\w+)/keys %{{map {$_,1} split '', $1}} == length $1 ? $1 : ""/ge;

可以使用单个正则表达式来完成此操作，而不使用 /e 吗？

Answer 1

$string =~ s/\b\w*(\w)\w*\1\w*\b//g;

看起来很奇怪，但无论如何都可以。