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