sub trim {
    $_[0] =~ s/^\s+//;
    $_[0] =~ s/\s+$//;
    $_[0];
  }

  my $var = "  I like pie.         ";
  trim($var);
  print $var;