Select Code to Download

use strict;
use Data::Dumper;
...

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

John Doe, Jane Anne Doe