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