my $email = 'dummy@dumdum.com';

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

print $email, "\n";