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

##</code><code>##

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