(@title)=split( /, /,$_);

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @array = ('foo, bar', 'bar, baz', 'foo, bar, baz');
@array = map {s/,//g; $_} @array;
print Dumper \@array;

s~,~~g for @array;

s~,~~g for @array;

s~,~~g for @array;

use Benchmark qw(:all);
my $string = 'Hallo, Welt blub blub, foo, bar.' x 10_000;
cmpthese( 10000, {
    'regex' => sub { $string =~ s/,//g; },
    'trans' => sub { $string =~ tr/,//d },
});

        Rate trans regex
trans 1190/s   --  -62%
regex 3145/s 164%    --

use Benchmark qw(:all);
my @array;
for ( 0..1_000 ) {
    $array[$_] = 'Hallo, Welt blub blub, foo, bar.';
}
cmpthese( 10000, {
    'regex' => sub { s/,//g  for @array; },
    'trans' => sub { tr/,//d for @array; },
});

        Rate trans regex
trans 3012/s   --  -24%
regex 3968/s  32%    --

#!/usr/bin/perl

use Benchmark qw(:all);


cmpthese( 10000, {
   'regex' => sub {my $string = 'Hallo, Welt blub blub, foo, bar.' x 1000; $string =~ s/,//g; },
   'trans' => sub {my $string = 'Hallo, Welt blub blub, foo, bar.' x 1000; $string =~ tr/,//d },
});

C:\community>bench.pl
        Rate regex trans
regex  387/s    --  -75%
trans 1534/s  296%    --

~/perl/test> cat tr_vs_s2.pl
#!/usr/bin/perl
use Benchmark qw(:all);
my $string = 'Hallo, Welt blub blub, foo, bar.' x 10_000;
cmpthese( 10_000, {
    'regex' => sub { (my $new = $string) =~ s/,//g; },
    'trans' => sub { (my $new = $string) =~ tr/,//d },
});


~/perl/test> perl tr_vs_s2.pl
        Rate regex trans
regex 66.7/s    --  -78%
trans  300/s  350%    --