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]