Perl 拆分后存储令牌

我有下面的Perl语句，它用分隔符|、\or分隔字符串/

@example = split(/[\|\\\/]/,$i);

拆分后如何存储代币

例如输入：

约翰|玛丽/马修

我得到的是：

（约翰、玛丽、马修）

我想要的是：

（约翰，玛丽，马修）

---

将捕获组放入正则表达式中以保存分隔符：

my $str = 'John|Mary/Matthew';

my @example = split /([\|\\\/])/, $str;

use Data::Dump;
dd @example;

产出：

("John", "|", "Mary", "/", "Matthew")

这被记录在：

的最后一段中，这被称为“分隔符保留模式”