拆分的正则表达式替代品？

Question

如何转换下面的字符串

"str 1<tab>str 2<tab>str 3<tab>str 4..........<tab>str n<tab and some whitespace>"

到

"*str 1*<tab>*str 2*<tab>*str 3*<tab>*str 4*..........<tab>*str n*<tab and some whitespace>"

其中 str 可以是“堆栈 - 溢出”或“超级：用户”，即包含一些空格和特殊字符的单词。

我知道我们可以使用 split 来解决这个问题。有没有办法只使用 =~ s///.. ？

提前致谢！

三位一体

Answer 1

$str =~ s/([^\t]+)/*$1*/g;  # Wrap all non-tab groups with '*'s

要处理“特殊字符”，只需将其添加到不需要的项列表中：

$str =~ s/([^\t:-]+)/*$1*/g;