$$email[0] = join("\\\@", split("@",$$email[0]));