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