$y = gsub($x, "a(.)", "aa\1\1\1")
