/usr/share/perl5/Regexp/Common/Email/Address.pm is in libregexp-common-email-address-perl 1.01-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | package Regexp::Common::Email::Address;
# $Id: Address.pm,v 1.1 2005/01/06 16:10:10 cwest Exp $
use strict;
use vars qw[$VERSION];
$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];
use Regexp::Common qw[pattern];
use Email::Address;
pattern name => [qw[Email Address]],
create => qq[(?k:$Email::Address::mailbox)];
1;
__END__
=head1 NAME
Regexp::Common::Email::Address - Returns a pattern for Email Addresses
=head1 SYNOPSIS
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";
}
=head1 DESCRIPTION
=head2 C<$RE{Email}{Address}>
Provides a regex to match email addresses as defined by RFC 2822. Under
C<{-keep}>, the entire match is kept as C<$1>. If you want to parse that
further then pass it to C<< Email::Address->parse() >>. Don't worry,
it's fast.
=head1 SEE ALSO
L<Email::Address>,
L<Regexp::Common>,
L<perl>.
=head1 AUTHOR
Casey West, <F<casey@geeknest.com>>.
=head1 COPYRIGHT
Copyright (c) 2005 Casey West. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
|