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