while (<>) { /^>/ && next; /[Nn]/ && do {print "1";exit;}' }