replext {
var %a
!.echo -q $regsub($2,/(?<=.)(?=.)/g,$cr,%a)
%a = $replace(%a,\,\\,^,\^,$,\$,.,\.,[,\[,$chr(40),\ $+ $chr(40),$chr(41), $&
\ $+ $chr(41),?,\?,*,\*,+,\+,$chr(123),\{,|,\|,$cr,(?:[]|(?:\d\d?(?:,\d\d?)?)?)*)
!.echo -q $regsub($1,$+(/,%a,/gi),$replace($3,\,\\,$,\$),%a)
return %a
}