Is there a function that replaces the first occurance of the expression instead of replacing all? For example, if I have `HoldForm[x + 2 + 4 + x] /. x -> 4`, is there a way to return `4+2+4+x`?