$|=1;do{printf"%03u\n",$.}while<>!~u