Help for this page

Select Code to Download

Select or download this

sub fn {
   my ($old) = @_;
   (my $new = $old) =~ s/.../.../;
   ...
}