my $s="HelloMyNameIsJake    AndThisIsTooMuchSpace";
my @a= $s =~ m/([A-Z][a-z]*)/g;
print "@a";