#!perl -w

use strict;
use warnings;
use Benchmark 'cmpthese';

my $test = join '', map { ' ' x  (0 == int rand 9) . ',' . ' ' x ((0 == int rand 3) * int rand 3) . $_ } 0 .. 1_000;

cmpthese(-10,{
  'test1' => sub { my $f = $test; $f =~ s/\s+,\s+|\s+,|,\s+/,/g; },
  'testA' => sub { my $f = $test; $f =~ s/\s+,\s+/,/g; $f =~ s/\s+,/,/g; $f =~ s/,\s+/,/g; },
  'test2' => sub { my $f = $test; $f =~ s/\s+,\s*|,\s+/,/g; },
  'testB' => sub { my $f = $test; $f =~ s/\s+,\s*/,/g; $f =~ s/,\s+/,/g; },
  'test3' => sub { my $f = $test; $f =~ s/\s*,\s*/,/g; },
});

##</code><code>##

1_000:
        Rate test1 test2 test3 testA testB
test1  974/s    --  -22%  -56%  -66%  -71%
test2 1256/s   29%    --  -43%  -56%  -63%
test3 2221/s  128%   77%    --  -22%  -35%
testA 2852/s  193%  127%   28%    --  -16%
testB 3412/s  250%  172%   54%   20%    --

10_000:
        Rate test1 test2 test3 testA testB
test1   79/s    --  -24%  -62%  -72%  -77%
test2  103/s   31%    --  -50%  -63%  -70%
test3  205/s  161%   99%    --  -26%  -39%
testA  277/s  252%  169%   35%    --  -18%
testB  339/s  331%  228%   65%   22%    --

100_000:
        Rate test1 test2 test3 testA testB
test1  6.5/s    --  -26%  -67%  -76%  -81%
test2  8.9/s   36%    --  -55%  -68%  -74%
test3 19.6/s  200%  122%    --  -28%  -42%
testA 27.3/s  319%  209%   39%    --  -19%
testB 33.6/s  414%  279%   71%   23%    --