Select Code to Download

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