ye, i should have used $right($1-,- $+ %i) in place of $mid($1-,- $+ %i), there's no need for $calc(). do you honestly think code is not interesting unless you use $regsubex or other methods that are flagrantly unnecessary? it leads me to believe you didn't read or understand what i was saying earlier about code suitability and the drawbacks of using your approach.
and you can still get shorter code with $regsubex, but i'll leave that as an exercise for you ;P