my $TRIM_WHITESPACE_RE = qr/^\s+|\s+$/
## ... later on .. ##
$text =~ s/$TRIME_WHITESPACE_RE//g;