http://qs1969.pair.com?node_id=432729


in reply to addd spaces after caps & reduce whitespace to single space

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

[download]
2: 
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]

In Section Seekers of Perl Wisdom