END{OFS=a[n=split("\"'{[:\$%`#.@?*-",a,_)] NF=21 for(s=$0;p=OFS=a[--n];s=$0r p s p r$0)NF=gsub(r=RS,p r p,s)+23;print s}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page