while($line=<>){
...
}