use Benchmark qw(cmpthese);

cmpthese(-5, { NoPlus => sub { $_ = 'a' . ('x' x 1000) . 'b'; s/x//g },
               Plus   => sub { $_ = 'a' . ('x' x 1000) . 'b'; s/x+//g } });