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.