$_ = 'foo.bar(baz.quux)';
print "was: $_\n";
tr[.][_];
print "now: $_\n";

__output__

was: foo.bar(baz.quux)
now: foo_bar(baz_quux)