Skip to content

Instantly share code, notes, and snippets.



Created Jun 12, 2009
What would you like to do?
#!/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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment