while( defined( local $_ = <FP> ) and  ! /^_stop\n/ ) {