#!perl -p0
s/9(.{10}|)\K!|!(?=(?1)9)/x/s||y#o/-9x.#--9!#until/0/