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