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