#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw /timethese cmpthese/;

chomp (our @lines = <DATA>);

our (@r1, @r2);

cmpthese -10 => {
    one      =>  '@r1 = map {/^\w+(?:,\w+)*$/          ? 1 : 0} @lines',
    two      =>  '@r2 = map {/^[\w,]+$/ && !/^,|,,|,$/ ? 1 : 0} @lines',
};

die "Unequal" unless "@r1" eq "@r2";


__DATA__
one,two,three,four,five
,one,two,three,four,five
one,two,three,four,five,
one,two,three,,four,five
one,two,three four,five




       Rate  two  one
two 25436/s   -- -26%
one 34417/s  35%   --