Select Code to Download

my $str = $change_in_place && $default_argument ? $_ : $_[0];
  $str =~ s/^($lchompstr)*//;
  $_[0];
}

  (my $str = $change_in_place && $default_argument ? $_ : $_[0]) =~ s/
+^($lchompstr)*//;
  $_[0];
}

.
.
...
  }
  $_[0];
}