I don't see using regsubex being complicated, do you?
on *:input:*:{
if ($left($1-,1) != /) {
say 0,1 $+ $regsubex($1-,/(.)/g,$+($chr(3),$gettok(04.07.08.09.11.13,$r(1,6),46),\1))
haltdef
}
}
However, the only drawback is that regsubex doesn't support older version below 6.17.
Nice work, though. GoldFish.