Try this

$bufr =~ /\<(.*\@.*)\>/;
if ($1) {
   $email = $1;
}

Sean Roe wrote:
> 
> Hi All,
> 
> I have a regex in a perl program that should return an email address but
> instead it returns 1.  THe line in question is:
> 
> $email = $bufr =~ /\<*.\@.*\>/;
> 
> I am trying to parse a log for bad email addresses but it seems to only
> return 1 in $email when it finds one.  What am I doing wrong?
> 
> Sean
> 
> ________________________________________________
> See http://PLUG.phoenix.az.us/navigator-mail.shtml if your mail doesn't post to the list quickly and you use Netscape to write mail.
> 
> PLUG-discuss mailing list  -  PLUG-discuss@lists.PLUG.phoenix.az.us
> http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss

-- 
Kimbro Staken
Chief Technology Officer
dbXML Group L.L.C
http://www.dbxmlgroup.com