Re: Split with numbers

Like this?

#! perl -slw
use strict;

my @examples = qw[ AB23C ABC23 23BC ABC ];

m[([A-Z]*)([0-9]*)([A-Z]*)]
    and printf "%s: '%s', '%s', '%s'\n", $_, $1//'', $2//'', $3//''
    for @examples;

__END__
C:\test>1148522
AB23C: 'AB', '23', 'C'
ABC23: 'ABC', '23', ''
23BC: '', '23', 'BC'
ABC: 'ABC', '', ''
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom