use Regexp::Common qw[Email::Address];
use Email::Address;

my (@found) = $line =~ /($RE{Email}{Address})/g;

my (@addrs) = map $_->address,
                Email::Address->parse("@found");

print $_, "\n" for @addrs;