$string =~ s/@/\\@/g;