use strict;
use warnings;


use Benchmark   qw( cmpthese );

my $results = cmpthese( -10, {
                              'r3' => sub {
                                  my $string = "  stuff  ";
                                  $string =~ s/^\s//g;
                                  $string =~ s/\s$//g;
                                  $string =~ s/\s+$//g;
                              },
                              'r1' => sub {
                                  my $string = "  stuff  ";
                                  $string =~ s/^\s|\s$|\s+$//g;
                              },
                             }
                      );

##</code><code>##

       Rate  r1  r3
r1 295926/s  -- -1%
r3 299980/s  1%  --

##</code><code>##

my $string = (' ' x 1000) . 'x' . (' ' x 1000);

##</code><code>##

       Rate   r3   r1
r3  61890/s   -- -79%
r1 297607/s 381%   --