my $string = "JohnDoe";
$string =~ s/(.)([A-Z])/$1 $2/g;
print $string;