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