while(($num=<stdin>)!~/^999$/){
...
}