s#\.+#$b=$m,$\=$`?"@-"+$m:1if$b<++($m="@+"-"@-"-1>>($`&&$/ne$'))#ge for<>;print