Perl - Como se puede sustituir una @ por \@

Estaba haciendo un cliente de mail y a la hora de meter los datos no me gustaria
que automaticamente se sustituyera la @ por \@ , con tr y s no es posible, bueno
gracias anticipadas

Un saludo

La verdad no te entiendo... si te puees explicar un poco mejor te lo agradecería..

Aqui tienes un ejemplo de como hacerlo com s:

$to=$ARGV[0]; # nos entran por ejemplo: [email protected]

$to=~ s/\@/\\@/;

# la barra \ va delante de la @ y la segunda \ para designar q son un caracter y no un simbolo especial. Aqui te faltaria comprobar que el correo no te viene con la barra \ ya puesta.