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]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.