@out = map[ m[([A-Z]*)([0-9]*)([A-Z]*)] ], qw[ AB23C ABC23 23BC ABC ];;

pp \@out;;
[
  ["AB", 23, "C"],
  ["ABC", 23, ""],
  ["", 23, "BC"],
  ["ABC", "", ""],
]