Excellent, this works great, except for the many extra separators of course. Oh well, can't have everything :-)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.