Select Code to Download

# named alias:

...
    my $stringref = $_[0];
    $$stringref =~ s/foo/bar/g;
}

sub func {    # usage:  $string = func($string)
    my $string = $_[0];
    $string =~ s/foo/bar/g;
    return $string;
}