use Benchmark 'cmpthese';
use Regexp::Common 'whitespace';

my $f = '   this is a string with  spaces  to    remove      ';
cmpthese(-3, {
  'Regexp-Common' => sub { my $g=$f; $g=~s/$RE{ws}{crop}//g;    },
  'two-s///'      => sub { my $g=$f; $g=~s/^\s+//; $g=~s/\s+$//;    },
  'one-s///'      => sub { my $g=$f; $g=~s/^\s+|\s+$//g;        },
  's-capture'     => sub { my $g=$f; $g=~s/^\s*(.*?)\s*$/$1/;   },
  's-capture2'    => sub { my $g=$f; $g=~s/^\s*(\S+(?:\s+\S+)?)?\s*$/$1/; },
  'm-capture'     => sub { my $g=$f; ($g) = $g=~/(\S+(?:\s+\S+)?)/;    },
});