Re: g matching after a single regular match

[AltBlue]

sub chip {
 local $_ = shift;
 s/(?<=\d)(?=A)|,|(?<=A)(?=B)/ /g;
 return split / /;
}