regex - 如何在 Perl 中删除所有带有非单词字符的标记？

Question

我正在尝试提出一个正则表达式来删除所有包含非单词字符的单词。

因此，如果它包含冒号、逗号、数字、括号等，则将其从行中删除，不仅是字符，还有单词。到目前为止，我有这个。

$wordline = s/\s.*\W.*?\s//g;

不必完美，因此可以删除带有破折号和撇号的字符串。

Answer 1

$wordline = join(" ", grep(/^\w+$/, split(/\s+/, $wordline)));