why isn't this working (perl Question)

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