perl -i -pe's/foo/bar/g; s/y/yah/g;' filename