procedure main()

s := "A simple string"
p := "string$"                  # regular expression

s ? write(image(s),if ReFind(p) then " matches " else " doesn't match ",image(p))

s[j := ReFind(p,s):ReMatch(p,s,j)] := "replacement"
write(image(s))
end

link regexp   # link to IPL regexp