while( $_ = <FH> ) { ... }