use Benchmark 'cmpthese';

our @data = ('foo', 'foo bar', ' foo', 'foo  ', ' foo ', ' foo bar ');
+ 

cmpthese -1, {
  faq    => 'my @f= map {local $_ = $_; s/^\s+//; s/\s+$//; $_ } @::data',
  Skeeve => 'my @f= map { /^\s*(\S.*?)\s*$/ && $1 || "" } @::data',
  ikegami => 'my @f= map { /^\s*(.*?)\s*$/; $1; } @::data'

}; 
__END__
           Rate  Skeeve ikegami     faq
Skeeve  24561/s      --     -8%    -28%
ikegami 26614/s      8%      --    -22%
faq     33998/s     38%     28%      --