use Benchmark qw(cmpthese);

cmpthese(-1, {
    alternate => \&alternate,
    single => \&single,
    tr => \&tr_op
});

my $s;
BEGIN{ $s = 'this is a string'; }

sub alternate {
    return $s =~ /[a-b]|[c-d]|[e-f]/ ;
}

sub single {
    return $s =~ /[a-f]/;
}

sub tr_op {
    return $s =~ tr/a-f/a-f/;
}