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