in reply to Splitting on non-initial uppercase without split
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]