use Benchmark;

timethese(-3, {
    aa => sub {
        $string = "blah+blah+blah";
        $string =~ tr/+/ /;
    },
    bb => sub {
        $string = "blah+blah+blah";
        $string =~ s/\+/ /g;
    },
    cc => sub {
        $string = "blah+blah+blah+blah+blah+blah";
        $string =~ tr/+/ /;
    },
    dd => sub {
        $string = "blah+blah+blah+blah+blah+blah";
        $string =~ s/\+/ /g;
    },
    ee => sub {
        $string = "blah";
        $string =~ tr/+/ /;
    },
    ff => sub {
        $string = "blah";
        $string =~ s/\+/ /g;
    },
});

print "\n";

timethese(-6, {
    aa => sub {
        $string = "blah+blah+blah";
        $string =~ tr/+/ /;
    },
    bb => sub {
        $string = "blah+blah+blah";
        $string =~ s/\+/ /g;
    },
    cc => sub {
        $string = "blah+blah+blah+blah+blah+blah";
        $string =~ tr/+/ /;
    },
    dd => sub {
        $string = "blah+blah+blah+blah+blah+blah";
        $string =~ s/\+/ /g;
    },
    ee => sub {
        $string = "blah";
        $string =~ tr/+/ /;
    },
    ff => sub {
        $string = "blah";
        $string =~ s/\+/ /g;
    },
});