$string =~ s/\s*(?:[\w\-]+|\W)$/.../;