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