Regexp::Common::Email::Address3pm
Returns a pattern for email addresses
Usage
use Regexp::Common qw[Email::Address];use Email::Address;while (<>) {my (@found) = /($RE{Email}{Address})/g;my (@addrs) = map $_->address,Email::Address->parse("@found");print "X-Addresses: ",join(", ", @addrs),"\n";}
Overview
$RE{Email}{Address}
Provides a regex to match email addresses as defined by RFC 2822. Under "{-keep}", the entire match is kept as $1. If you want to parse that further then pass it to "Email::Address->parse()". Don't worry, it's fast.
Releases
9 releases since Debian 5.0 (Lenny); the text changed 3 times.