Had he written $x = "foo@bar", he'd have been warned by Perl. But that's not the case.

In addition, because the @ is in a string, there's no fear of it being read by Perl as an array, unless he evaluates the variable. All in all, he doesn't need to do jack to the string. In fact, adding a backslash will probably cause a mailing client to break.

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

$string =~ s/@/\\@/g;
[download]

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]

That's a very important point; unless you explicitly type into your code the email address, you don't need to escape the @ symbol. So populating $string from a database would need no extra work (and trying to do what you do may screw up the system later by introducing an unneeded backslash).

---

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain

if you want a / you'll have to do something like $string =~ s|\@|/\@|g;

                - Ant

s/@/\/@/g;
[download]

$string = "foo\@bar.com";

# or better yet:
$string = 'foo@bar.com';
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

Search this site for 'replacing', there are loads of hits.
Look in any perl books, they will have the answers....

Thank you for your tactful RTFM reply.
...
I did search the site. I know how to do this normally. I spcifically could not figure out the combination for the "@" character.

Also, a search for "replace" on the site yielded nothing.

A search for "search and replace" did not yield my answer.
:)

Fair enough, the post gave me the impression you hadn't bothered, sometimes varying the search to i.e replacing helps