while (my $name = <DATA>)
{
  chomp($name);
  $name =~ s/
                [^a-zA-Z]+          # Non letter chars
              |                     #
                (?<= [a-zA-Z] )     # Something that comes after a letter
                (?=  [A-Z] )        # and comes before an uppercase letter
            / /xg;

  # \u is short for ucfirst and \L for lc
  $name =~ s/(\w+)/\u\L$1/g; 

  say $name;
}
##</code><code>##

say s/[^a-zA-Z]+|(?<=[a-zA-Z])(?=[A-Z])/ /gr =~ s/(\w+)/\u\L$1/gr for <DATA>;