$_=";"x(pop);s;.;.;;$;=~s:.:.:g,s:($;).:$1.:g,s,($;).,$1:,while($;)=m:(.+?);:;s;:;1+pos();ge;say