$--=$_ for<>!~$"-$`*$'-1,glob<>;print$--1