use strict;
use Data::Dumper;

my $name = 'JohnDoe, JaneAnneDoe';

$name =~ s/(?<=[a-z])(?=[A-Z])/ /g;
print $name;
[download]

Prints:

John Doe, Jane Anne Doe
[download]