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