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