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

##</code><code>##

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