sub trim_white {
   my $string = shift;
   $string =~ s/^\s+//g;
   $string =~ s/\s+$//g;
   return $string;
}

# Usage example:
my $trimmed = trim_white( $untrimmed );