$$email[0] =~ s!@!\\@!;