#!/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%    --