why isn't this working (perl Question)

Top Page
Attachments:
Message as email
+ (text/plain)
Delete this message
Reply to this message
Author: Sean Roe
Date:  
Subject: 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