$ mx tmp "proc='a100|1#^aBorges, Jorge Luis,^d1899-^4trl^4aui|'" "proc='a1000|',replace(v100*3,'^','|a1000|'),'|','a1000|##|'" mfn= 1 100 «1#^aBorges, Jorge Luis,^d1899-^4trl^4aui» 1000 «aBorges, Jorge Luis,» 1000 «d1899-» 1000 «4trl» 1000 «4aui» 1000 «##» ..x
$ mx tmp "proc='a100|1#^aBorges, Jorge Luis,^d1899-^4trl^4aui|'" "proc='a1000|',replace(v100*3,'^','|a1000|'),'|','a1000|##|'" "pft=(if v1000.1='4' then v1000*1/ fi)" trl aui