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