how to substitute '@' in line

[vishy_acts]

Hi

I want to substitute '@' in email id with \@ .
I am processing one crontabe entry from our server which contains email id .
How to add escape character '\' before that so as to process it correctly .?

program:

$line="[e-mail]";
$line=~s/\@/\\@/g;
print "\n line is $line";

This is not giving correct result .

Thanks
Vishy

--------------------------------------------
I tried using Email::Address as follows

@addr=Email::Address->parse($line);

$user=$addr->$user;

print "\n $user";

---- this is not giving anything ---
i checked contents with perl -d ... addr is not getting created ...

please help

[johngg]

Your line $line="[e-mail]"; is using double-quotes so you are trying to interpolate the array @lmnop into the string. Use single-quotes to suppress interpolation.

knoppix@Microknoppix:~$ perl -E '
> $line = q{[e-mail]};
> say $line;
> $line =~ s{(?=\@)}{\\};
> say $line;'
[e-mail]
abc.xyz\@lmnop.com
knoppix@Microknoppix:~$

I hope this is helpful.

[Anonymous Monk]

I'm not at my computer with Perl installed, but I think you could use the substitution operator with non-interpolating delimiters.

s'@'\@'

[snape]

Are you substituting @ to /@ or separating the id and domain name. This might give you some hints:

my $line = '[e-mail]';
print $line,"\n";
$line=~s/($1)@($2)/$1\t$2/g;
print "\n line is $line";