use Email::Address;

my @addresses = Email::Address->parse($line);