$ perl -E ' say map { qq{"$_"\t}}  split /(\d+)/, $_, 3 for qw[ AB23C ABC23 23BC ABC ]'
"AB"    "23"    "C"
"ABC"   "23"    ""
""      "23"    "BC"
"ABC"