use Benchmark;
    my $foo = join ',', ('bar') x 100;

    timethese(-10, {
        's' => sub { (my $bar = $foo) =~ s/,//g },
        'tr' => sub { (my $bar = $foo) =~ tr/,//d },
    });