use strict;
use warnings;

use Benchmark q{cmpthese};

my @arr = ( q{   fdsgehw fw wwfe w    } ) x 5000;

cmpthese(
   -5,
   {
       alternation   => sub
          {
              my @new = @arr;
              s{ ^\s* | \s*$ }{}gx for @new;
          },
       capture       => sub
          {
              my @new = @arr;
              s{ ^\s* (\S.*?) \s*$ }{$1}x for @new;
          },
       splitJoin     => sub
          {
              my @new = @arr;
              $_ = join q{ }, split for @new;
          },
       twoStage      => sub
          {
              my @new = @arr;
              s{ ^\s* }{}x for @new;
              s{ \s*$ }{}x for @new;
          },
       twoStageComma => sub
          {
              my @new = @arr;
              s{ ^\s* }{}x, s{ \s*$ }{}x for @new;
          },
   },
   );
[download]