$|=printf"%03u\n",$.;do$0x<>!~u