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