$str =~ s/^\s*([^\s]?.*)$/$1/;
  $str =~ s/^(.*[^\s])\s*$/$1/; # два regex работают быстрее, чем один более сложный

URL:
Обсуждается: http://www.opennet.me/tips/info/396.shtml

• Как в Perl вырезать у строки лидирующие пробелы,B.O.B.A.H., 10:34 , 14-Окт-04
  • Как в Perl вырезать у строки лидирующие пробелы,Maxim Chirkov, 22:23 , 16-Окт-04
• Как в Perl вырезать у строки лидирующие пробелы,Skif, 18:20 , 24-Дек-04
  • Как в Perl вырезать у строки лидирующие пробелы,Thekostya, 18:55 , 05-Дек-06
  • Как в Perl вырезать у строки лидирующие пробелы,Dan, 01:46 , 23-Окт-16

а так не работает?
s/^\ *// # удалит только пробелы
s/^\s*// # включая табуляцию и переход на новую строку

Описанный в совете пример работает быстрее для относительно больших строк.
s/^\s*//;$str =~ s/\s*$//; быстрее в случае небольших строк (примерно до 50 символов).
$str =~ s/^\s*(.*?)\s*$/$1/;' - наименее оптимальный вариант.

$str =~ s/^\s*//;$str =~ s/^(.*[^\s])\s*$/$1/; - комбинированный вариант, очень неплохой результат.

тестировал так:

#!/usr/bin/perl
use strict;
use Benchmark;

timethese(100000,
    {
      test1 => 'my $str="  test "; $str =~ s/^\s*([^\s]?.*)$/$1/;$str =~ s/^(.*[^\s])\s*$/$1/;',
      test2 => 'my $str="  test "; $str =~ s/^\s*//;$str =~ s/\s*$//;',
      test3 => 'my $str="  test "; $str =~ s/^\s*(.*?)\s*$/$1/;',
      test4 => 'my $str="  test "; $str =~ s/^\s*//;$str =~ s/^(.*[^\s])\s*$/$1/;'
    }
);

пользуюсь s/^[\s\t]+/g
Не знаю на сколько быстрее/медленнее, но понятнее и не громоздко.

>  пользуюсь s/^[\s\t]+/g

а g  в конце зачем ? :)

Метасимвол \s по-хорошему включает в себя \t.