How about this:

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

Note that this treats special characters and spaces alike.