b=$0RS{for(;a;$!sub(/.$/,e,a)=b)r=$!sub(a (c=$!sub(".*"a,e))A[$0=b],"["a"]"c)r;a=$0}$0=r
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page