sub frobnicate {
    $_[0] =~ s/foo/bar/g;
    return;
}