Select Code to Download

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

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