my @names = split /(?=[A-Z])/;
[download]

my @names = split /(?<=.)(?=[A-Z])/;
[download]

I assume you mean you're using split(m/[A-Z]/, $string), but you didn't make that very clear.

The split() pattern defines what to remove between the chunks you want to keep. Using a m// pattern with captures defines what to keep amongst the rest of the string.

This method catches a list of capitalized chunks, and is the more natural to me:

my $name = 'JohnJacobJingleheimer-Schmidt';
my @chunks = ($name =~ m/([A-Z][a-z]*)/g);
print $_,$/ for @chunks;
[download]

By using a couple of zero-width assertions, you could use split(), but it will act differently with punctuation cases:

my $name = 'JohnJacobJingleheimer-Schmidt';
my @chunks = split(m/(?<=[a-z])(?=[A-Z])/, $name);
print $_,$/ for @chunks;
[download]

Instead of using split you can just use a regular regex.

my $test = "JohnSmith";
my ($first, $last) = $test =~ /([A-Z][a-z]+)([A-Z][a-z]*)/;
print "First: $first, Last: $last\n";
[download]

This may be buggy since I'm not a genius with lookaround assertions but here it goes:

my $c='JohnSmithSplitMe';
my @c=split /(?<=[a-z])(?=[A-Z])/, $c;
print "-@c-\n";
__END__
-John Smith Split Me-
[download]

thanks for the solutions