$==$$.54231;map{print$$_//=chop$=}/.../g,'/'while$_=<>^<>^<>&1x18