why isn't this working (perl Question)

[Sean Roe]

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