in reply to g matching after a single regular match
sub chip { local $_ = shift; s/(?<=\d)(?=A)|,|(?<=A)(?=B)/ /g; return split / /; } [download]