Select Code to Download

sub append_stuff {
  my ($input) = @_;
  $input . "stuff";
}

sub modify_stuff {
   $_[0] .= "stuff";
}

my $input = "some";
print append_stuff($input),"\n";
...
some
somestuff
somestuff

my $input = "some";
print s/ome/tuff/;
print $input;
__END__
1stuff