http://www.perlmonks.org?node_id=212136


in reply to finding emails

Incomprehensible. Perhaps start here... 

while (<DATA>) {
    my @emails = $_ =~ m/([^\s<>]+\@[^\s<>]+)/g;
    $emails{$_}++ for @emails;
}
use Data::Dumper;
print Dumper \%emails;
__DATA__
go@away.com<new@foo.com>spam@me.net
foo@baz.bar
bar@ppp.ipsec wid@get.com
jfreeman@[nospam]tassie.net.au

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In Section Seekers of Perl Wisdom