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