使用 Perl split 函数，但保留某些分隔符

我有一个字符串需要根据某个字符进行拆分。但是，当字符串两侧是数字时，我只需要在其中一个字符上拆分字符串。相同的字符存在于字符串中的其他位置，但两侧会有一个字母 - 至少在一侧。我尝试按如下方式使用 split 函数（使用“x”作为相关字符）：

my @array = split /\dx\d/, $string;

但是，此函数会删除“x”和两侧的数字。如果可能的话我想保留数字。有任何想法吗？

使用零宽度断言：

my @array = split /(?<=\d)x(?=\d)/, $string;

这将匹配一个x前面和后面都有一个数字，但不消耗数字本身。