# hash
undef $/;
my %emails = split /[<>\n]+/, <DATA>;