cmpthese(100000, {
        'tr' => sub {
                foreach (@rands) {
                  my $x = tr/-//;
                }
        },
        'm//' => sub {
                foreach (@rands) {
                  my $x = () = $_ =~ /-/g;
                }
        },
    }
);