$y = gsub($x, "A",    "Aa")
