shortening code on mirc is generally a thought provoking exercise which can be lots of fun, but there is a time and a place and often more important things to consider. here, we merely need to insert a string of text in the middle of another. invoking $regsubex() with $iif() testing a condition for every character in $1- is, quite simply, overkill. not to mention adding 6 characters for every 1 in the input string, reducing the amount of text we're able to send the server by a factor of 7. the following method is simpler, generates a much shorter string and is 8 bytes shorter than the other:
var %i $len($1-) / 2
say 12,11 $+ $left($1-,%i) $+ 11,14 $+ $mid($1-,- $+ %i)