$text =  "   The   perl      ";
# remove leading whitespace
$text =~ s/^\s+//;
# remove trailing whitespace
$text =~ s/\s+$//;
[download]