#!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; },
});