$y = gsub($x, "a",    "")
