perl -i.bak -lpe 's/foo/bar/g;' baz