请解释这段用于逗号分词的Perl代码中的两行正则语句

先明确整体目标：拆分文本中的逗号，但保留数字内部的逗号（像5,300这种千位分隔符）。注释里也提到，之前用单次全局替换会有遗漏问题，所以才用了两步替换的方案。

第一行：$text =~ s/([^\p{IsN}])[,]/$1 , /g; #

咱们拆解这个正则逻辑：

• ([^\p{IsN}])：捕获一个非数字字符（\p{IsN}是Perl的Unicode属性匹配，能识别所有Unicode数字，比单纯的[0-9]适用范围更广）
• [,]：匹配紧跟在这个非数字字符后面的逗号
• 替换成$1 , ：把原来的「非数字+逗号」改成「非数字 + 空格+逗号+空格」

这一步专门处理逗号前面不是数字的情况，比如把"A,B"变成"A , B"，但像"5,300"这种逗号前是数字的场景，就不会被匹配，完美保留数字内部的逗号。

第二行：$text =~ s/[,]([^\p{IsN}])/ , $1/g; #

这一行是反过来处理另一种场景：

• [,]：匹配逗号本身
• ([^\p{IsN}])：捕获逗号后面紧跟的非数字字符
• 替换成 , $1：把原来的「逗号+非数字」改成「空格+逗号+空格+非数字」

比如处理"B,C"时，第一行可能已经处理了B后面的逗号，但如果有遗漏（比如注释里提到的单次替换遗留问题），这一行会补上；另外像",X"这种开头的逗号，也会被改成" , X"。

为啥要用两步法？ #

注释里说得很清楚：之前的单次全局替换会有遗漏——比如处理A,B,C,D,E时，可能会变成A , B,C , D,E，因为第一次匹配替换了A后面的逗号后，正则引擎的匹配位置会跳到B后面，导致没法识别B后面的逗号。而两步法先扫一遍逗号前是非数字的情况，再扫一遍逗号后是非数字的情况，就能全覆盖所有需要拆分的逗号，同时避开数字内部的逗号。

另外注释也提到，这两步可能会产生多余的空格（比如如果某个逗号前后都是非数字，两步处理后可能出现多个空格），后续会有专门的步骤移除；而且这两步还会在数字和字母、字母和数字之间加空格，这部分功能和后续代码重复了，但属于方案的小瑕疵，不影响核心目标。

内容的提问来源于stack exchange，提问作者matanox