I find trimming space quite boring. There's nothing interesting about it. What I do is:

$str =~ s/^\s+//; $str =~ s/\s+$//;
[download]

rtrim/ltrim following trivially from it.