$a=<>;s//(0..9,a..z)[$-%$.]/ewhile$-/=$.%37or$-=$a,$.+=print,$_=$/