Select Code to Download

#!perl -w

...
  'testB' => sub { my $f = $test; $f =~ s/\s+,\s*/,/g; $f =~ s/,\s+/,/
+g; },
  'test3' => sub { my $f = $test; $f =~ s/\s*,\s*/,/g; },
});

1_000:
        Rate test1 test2 test3 testA testB
...
test3 19.6/s  200%  122%    --  -28%  -42%
testA 27.3/s  319%  209%   39%    --  -19%
testB 33.6/s  414%  279%   71%   23%    --