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