gistfile1.txt

#!/usr/bin/env perl
use strict;
use Text::CSV_XS;
use Data::Dumper;
use Perl6::Say;
use Email::Address::Loose;

my $csv = Text::CSV_XS->new;

while (my $row = $csv->getline(*STDIN)) {
    my $line = $row->[0];
    my @addresses = Email::Address::Loose->parse($line);
    for my $address (@addresses) {
        say $address->address;
    }
}