while(defined ($line = $file -> read)){
...
}