Ah, the first regexp subst. should of course have been:

   s/^[^[:upper:]].*/-/m;

\W will match all non-word characters, I wanted all non-uppercased (word) characters.

Excellent, this works great, except for the many extra separators of course. Oh well, can't have everything :-)