Help for this page

Select Code to Download

Select or download this

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

Select or download this

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