$y=gsub($x, "e", "X")
