#!/usr/bin/perl -w

open(IN,"AllGenomeFileNames.txt");
    while (<IN>) {
        chop;
        open(IN2,"$_"); 
        my $firstline = <IN2>;
        if ($firstline  =~ /plasmid/) {
            next;
        }elsif ($firstline =~ /\|N.\S+\|/) {
            print"$_\n";
        }
        close IN2;
    }
close IN;
