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