sub trim {
   for (my $s = $_[0]) {  # passed param assigned, not used
      s/^\s+//;           # substitutions on $_
      s/\s+$//;
      return $_;
   }
}