# array
my @emails = ();
while (<DATA>) {
    push @emails, (split /[<>]/)[1,3,5];
}

##</code><code>##

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