This is a existing method I could conjure up, seems rather inefficient?
proc/swap(haystack, string1, string2, start=1, end=0)
haystack = replacetext(haystack,string1,"?[string2].",start,end)
haystack = replacetext(haystack,string2,string1,start,end)
haystack = replacetext(haystack,"?[string1].",string2,start,end)
return haystack
mob/Login()
var str = "A cat was killed by the family mouse."
src << swap(str,"cat","mouse")