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

##</code><code>##

sub frobnicate {
    my ($ref) = @_;
    $$ref =~ s/foo/bar/g;
    return;
}