Sht1tn OP has asked that white space is not allowed at the beginning of the sentence.

Also he asked more that one spaces or tabs or newlines.

So your answers wont work for the above conditions.

update:when you are updating your node, use update in your node.

IMHO - no need for $1 and $2 capturing:


$string =~ s/(?<=.)([A-Z])/ $1/g;
[download]

As long as you're doing that ...

$ perl -e '$s="JustAnotherPerlHacker\n"; $s=~s/(?<=.)(?=[A-Z])/ /g; pr
+int $s'
Just Another Perl Hacker
[download]

By using zero-width assertions on both sides, we don't need to actually match anything. We're matching, literally, zero characters - we're matching simply a location with no length associated. Note, however, that I would make it just a bit different for a bit more flexibility:

$s=~s/(?<=\S)(?=[[:upper:]])/ /g
[download]

Match the location between a non-space and a capital letter. Using a character class gives us flexibility for other languages.

This may also be useful for splitting:

$ perl -e '$s="JustAnotherPerlHacker\n"; @a = split /(?<=\S)(?=[[:uppe
+r:]])/, $s; print "@a"'
Just Another Perl Hacker
[download]

Since split is splitting on nothing, there is nothing actually removed.