Select Code to Download

    use Benchmark;
    my $foo = join ',', ('bar') x 100;
...
        's' => sub { (my $bar = $foo) =~ s/,//g },
        'tr' => sub { (my $bar = $foo) =~ tr/,//d },
    });

    Benchmark: running s, tr, each for at least 10 CPU seconds...
         s: 10 wallclock secs (10.00 usr +  0.00 sys = 10.00 CPU) @ 10
+150.70/s (n=101507)
        tr: 10 wallclock secs (10.01 usr +  0.00 sys = 10.01 CPU) @ 10
+9117.38/s (n=1092265)