DB<2> @foo = split /(A)|B/, "1A2B3"

  DB<3> x @foo
0  1
1  'A'
2  2
3  undef
4  3
  DB<4>