Of course, you can make the same with your example:
my @addresses = Mail::Address->parse('"blah blach"
<[EMAIL PROTECTED]>');
print $addresses[0];
The result should be: [EMAIL PROTECTED]
With best wishes,
Dmitry Nikolayev
"Andrew Black" <[EMAIL PROTECTED]> ???????/???????? ? ????????
?????????: news:[EMAIL PROTECTED]
> 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>
