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