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