One solution:
my $string = "JohnDoe"; $string =~ s/(.)([A-Z])/$1 $2/g; print $string; [download]
In reply to Re: Insert Space between names by pg in thread Insert Space between names by steelrose