| Current Path : /usr/share/doc/perl-Email-Address/bench/ |
| Current File : //usr/share/doc/perl-Email-Address/bench/too_long.pl |
use Email::Address;
$value = q{first@foo.org,} . q{ } x 26 . q{second@foo.org};
use Data::Dumper;
print Dumper(Email::Address->parse($value));