use strict;
use Benchmark 'cmpthese';

my @data = <DATA>;
my @long = map { join '', $_ x 100 } @data;

my %cases = (
  'Single' => sub { for ( @long ) { /^\w+(?:,\w+)*$/ } },
  'Double' => sub { for ( @long ) { /^[\w,]+$/ && ! /^,|,,|,$/ } },
);

cmpthese( 0, \%cases);

__DATA__
!@#$as3dfa
,sdfas3df,
asd3fsa,,a3sdf
as3df,asdf3,3asdf,asd3f
sad3fasdjasdfkasdfklas3jf
3sad3fasdjasdfkasdfklas3jf
3sad3fasdjasdfkasdfklas3jf3