$line="abc.xyz@lmnop.com";
$line=~s/\@/\\@/g;
print "\n line is $line";