$mystring = "    spaces     ";

$temp = trim($mystring);
print $temp;

sub trim {
  my $string = shift;		#pass in 1 value only
  for ($string) {
    s/^\s+//;
    s/\s+$//;
  }
  return $string;
}