ioncluir caracter string en otro

Saludos, tengo este script:

Código :

tex = "artillado";
lar = tex.length;
for (t=1; t<lar; t++) {
   st=substring(tex,t,1);
   if (st=="a") {
      trace(t);
   }
}

Lo que quisiera saber es si hay alguna funcion para incluir un caracter en un lugar especifico, digamos incluir una p despues de cada a, que quede aprtillapdo...
Si alguien la conoce profavor

Puedo hacerlo con este script:

Código :

tex = "artillado";
lar = tex.length;
for (t=1; t<lar; t++) {
   st=substring(tex,t,1);
   if (st == "a") {
      pa1=substring(tex,1,t);
      pa2=substring(tex,t+1,lar-t)
      resu = pa1+"a";
      tex=resu+pa2;
      lar++;
      t++;
   }
}
trace(tex);
//terminara saliendo aprtillapdo

pero si alguien conece una funcion que lo haga directamente sin tanto script