while( defined( $line = <DATEI> ) ) {