Also, when you populate $string, make sure you use single quotes so @foo is not interpreted as an array variable

$string = 'foo@foo.com';
$string =~ s/\@/\\@/g;
[download]