What's wrong with:

$string =~ s/^\s*(.*?)\s*$/$1/;
[download]

I can't vouch for best speed in benchmarks, but works in any case I've needed such a construct for.