$string =~ s/\s*[\w\-]*$/.../;
return $string;

##</code><code>##

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

##</code><code>##

$string =~ s/\s*[\w\-]+$/.../ or $string =~ s/\s*\W$/.../;