Help for this page
use strict; use Data::Dumper; ... $name =~ s/(?<=[a-z])(?=[A-Z])/ /g; print $name;
John Doe, Jane Anne Doe