perl -i -pe '$last = $_; s/foo/bar/ if eof; END{print $last}' file