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