C:\>perl -e "my $var = '    test    '; $var =~ s/^\s+|\s+$//g; print qq~'$var'~;"
'test'