$y = ssub($x, "HE",       "12345")
