Break string into a list

[MonsterAar]

What I need to do is take a string, for example $string and whenever there is a capital, form an entry in a list.

To illustrate what I meen:

If i have this string: Os6NaClPo9C
I want to break it into a list with the following elements:
Os6
Na
Cl
Po9
C

any ideas?

 

[ishnid]

Try this:

my @list = split /(?=[A-Z])/, $string;

 

[cfmartin2000]

This works too:

my @elements;
my $string = 'Os6NaClPo9C';
(@elements) = $string=~/([A-Z][^A-Z]*)/g;