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