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