in reply to split by a capital followed by

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]


___________
Eric Hodges $_='y==QAe=e?y==QG@>@?iy==QVq?f?=a@iG?=QQ=Q?9'; s/(.)/ord($1)-50/eigs;tr/6123457/- \/|\\\_\n/;print;

In Section Seekers of Perl Wisdom