use strict;
use Data::Dumper;

my $name = 'JohnDoe, JaneAnneDoe';

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