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