Or this...

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

Now any capital letter character preceedd by a 'word' character will have a space prepended.