is there a better way to script $right($1-,$calc($len($1-) - 3)) ?