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