#!perl -p0
/
/;$x="(|.{@-})";y/0/./while s/$.$x\K$"|$"(?=$x$.)/-/s||($"=$.++)<9