#!/usr/bin/perl -w

use strict;
use Benchmark qw(:all);

my @rands = qw (A---B-B---B---D----F----G----H----J----K-----L---F-D--F---G--H---_R_-f-F-ff-----f
    ----F----G--
    ----F----G------F----G------F----G--
    ----F----G------F----G------F----G------F----G--
    ----F----G------F----G------F----G------F----G-----F----G---
    ----F----G-----F----G---
    ----F----G------F----G------F----G--);

my $max = @rands;

cmpthese(1000000, {
        'tr' => sub {
                $_ = $rands[int(rand($max))];
                my $x = tr/-//;
        },
        'm//' => sub {
                $_ = $rands[int(rand($max))];
                my $x = () = $_ =~ /-/g;
        },
    }
);

##</code><code>##

__END__
Benchmark: timing 1000000 iterations of m//, tr...
       m//: 57 wallclock secs (54.53 usr +  0.07 sys = 54.60 CPU) @ 18315.02/s (n=1000000)
        tr:  1 wallclock secs ( 1.92 usr +  0.00 sys =  1.92 CPU) @ 520833.33/s (n=1000000)
        Rate   m//    tr
m//  18315/s    --  -96%
tr  520833/s 2744%    --