while( (<FP>) && (!/^_stop\n/) ) {  

##</code><code>##

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