Do you want to parse the addresses or just extract them from the file? In the second case, why not just:

local $/ = undef;
my $raw = <FILE>;
$raw =~ s/[\r\n]//g;
$raw =~ s/;\s+//g;
my @list = split /;/, $raw;
[download]

and maybe:

foreach (@list) {
  s/^[^<>]+<([^<>]+)>$/$1/;
  # or:
  s/^[^<>]+<([^<>\s]+@[^<>\s]+)>$/$1/;
}
[download]

but the second regex also throws away some legal addesses like "user!host1!host2!host3"