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