how to insert character to perl string

[michael12]

because sendmail use the format "name\@hostname.com", I use the form to collect email address "name@hostname.com", how to insert character "\" into the email address?

 

[Krel]

$email = 'somename@host.com';
$email =~ s/@/\\@/g;
print $email; # prints somename\@host.com