Help for this page

Select Code to Download


  1. or download this
    my $name = 'JohnJacobJingleheimer-Schmidt';
my @chunks = ($name =~ m/([A-Z][a-z]*)/g);
print $_,$/ for @chunks;
  2. or download this
    my $name = 'JohnJacobJingleheimer-Schmidt';
my @chunks = split(m/(?<=[a-z])(?=[A-Z])/, $name);
print $_,$/ for @chunks;