Help for this page
while( (<FP>) && (!/^_stop\n/) ) {
while( defined( local $_ = <FP> ) and ! /^_stop\n/ ) {