my $text = "HelloMyNameIsJake";
$text =~ s!(.)([A-Z])!$1 $2!g;
print "[$text]";
[download]

my $text = "So much           spaces,\t\t\t\t\t\ttabs and\n\n\n\n\n\n\
+n newlines";
$text =~ s!\s+! !g;
print $text;
[download]