;https://www.isharkfly.com/t/mumps-string-replacement/15228/1N I
N I
N TOK
N OSTR
SET count=0
F I=1:1:$L(str," ") S TOK=$P(str," ",I) S:TOK=old TOK=new S:TOK=new count=count+1 S OSTR=$G(OSTR)_" "_TOK
QUIT $E(OSTR,2,$LENGTH(OSTR))