use Email::Address; $value = q{first@foo.org,} . q{ } x 26 . q{second@foo.org}; use Data::Dumper; print Dumper(Email::Address->parse($value));