Select Code to Download

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

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

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