how to replace characters in string?

[alan123]

I want to change email format from "abcd@abcd.com" to "abcd\@abcd.com", since sendmail need that format, how can I replace "@" with "\@"

Thanks.

 

[NatAnderson]

my $addr = "abcd@abcd.com";
$addr =~ s/@/\\@/;

 

[alan123]

but this only shows "abcd.com"? I tested on RH8

 

[rosenk]

That's because [tt]@abcd[/tt] is getting interpolated in the line:
[tt]my $addr = "abcd@abcd.com";[/tt]

Change it to:
[tt]my $addr = 'abcd@abcd.com';[/tt]
or:
[tt]my $addr = "abcd\@abcd.com";[/tt]