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