S.A. Birl [SAB], on Tuesday, December 14, 2004 at 09:58 (-0500 (EST)) contributed this to our collective wisdom:
SAB> Problem is: SAB> $from_ = $From =~ /@/; SAB> returns 1. you should use this: ($from_ = $From) =~ /@/; but your regexp isn't right. maybe this will work: ($from_ = $From) =~ /[EMAIL PROTECTED]/; you should look on google for "right" email regexp, there are some on the web... -- ...m8s, cu l8r, Brano. ["That's how bold the stuff is, you little priss-ant!" -- Crow] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>