All the spaces that you want to insert can be added in one go, with the logic:

• replace all non letter chars by a space (I my version, I replace a group of non letter chars by a single space, that way "W-M" and "W. -M" both come "W M")
• replace the position between a letter an an upper cas letter by a space (if you have two upper case in a row, you still want a space right? eg "DAcosta" => "D Acosta")

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

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

  say $name;
}
[download]

The (?<= ) (?= ) are Lookaround Assertions that do exactly what it says on the tin, and check around the current position, without including the checked value in the match (so the matched letters on both side aren't removed).

Edit: you can chain s/// operations if you return the result with /r, but it's not very elegant:

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

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.