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