Help for this page
$string =~ s/\s*[\w\-]*$/.../; return $string;
$string =~ s/\s*(?:[\w\-]+|\W)$/.../;
$string =~ s/\s*[\w\-]+$/.../ or $string =~ s/\s*\W$/.../;