perl -pe "s/(\d{10})$/substr $1+9_999_999_998,-10/e"