Extracting and email address

[Andrew Black]

Is there a module to extract the real email address from a header.  e.g. 
given
    "blah blach" <[EMAIL PROTECTED]>
extracts the [EMAIL PROTECTED]

I am loathe to roll my own - sure there are formats I haven't thought of.
Andrew
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>