Double check that regex, it doesn't match what you want it to. I'd go for:

Code:
$regsub($1-,/(?:^| )[^$]\S*/g,,%a)