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

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

Erm, no. That's going to turn "LikeThis" into "Lik This"

--
edan

This works, but I have the distinct feeling there is a more straightforward way to do it...

$s =~ s/(?<!^)(?=[A-Z])/ /g;
[download]

How about:

$s =~ s/([a-z])([A-Z])/$1 $2/ig;
[download]

(untested)

I guess you would want to make your regex case sensitive:


$s =~ s/([a-z])([A-Z])/$1 $2/g;
[download]


But then I think it still would not fit the description as it
woud not split something like "Test1Test2" into "Test1 Test2"
So following your line of thought it should be something like


$s =~ s/([^A-Z])([A-Z])/$1 $2/g;
[download]


si_lence

What about this:

$s =~ s/\B(?=[[:upper:]])/ /g; 
[download]

or this

$s =~ s/\B([[:upper:]])/ $1/g; 
[download]

    substr ($s, 1) =~ s/([A-Z])/ $1/g;
[download]

Yep. Or per the OP's substitution, which I prefer:

substr( $s, 1 ) =~ s/(?=[A-Z])/ /g;
[download]

Makeshifts last the longest.

I don't quite undrestand your question, but

$w = "ThisIsTheHouseThatJackBuilt"; $w = join " ", $w =~ /[[:upper:]][
+^[:upper:]]*/g; print $w, $/;
[download]

This Is The House That Jack Built
[download]

Since no one else has mentioned it yet, here is an example that uses the SlashG anchor. (SlashG is typed like that just to make it search-engine-distinguishable).

$_ = "ThisIsACamelCaseWorld";
my  @aTemp;
@aTemp =  m/\G[A-Z]?[a-z]*/g;          ## same thing
print join " ", @aTemp;

__END__
This Is A Camel Case World

[download]