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