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