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