comment on

What have you tried? Why didn't it work? Please read How do I post a question effectively?. In particular, input and expected output should be wrapped in code tags to maintain formatting. In addition, the mapping from your input to your output is not entirely obvious to me, and so you should explain that. Effort is appreciated around here.

The following code does something like what you need. Read it, consider it, and understand it. Post specific questions following site guidelines if anything is unclear.

#!/usr/bin/perl
use strict;
use warnings;

my $buffer = "";
my $series = 1;
$_ = <DATA>; # Skip first line
while (<DATA>) {
    if (/>/) {
        my @elements = split /N+/, $buffer;
        for my $i (1 .. @elements) {
            print ">Count$series.$i\n$elements[$i-1]\n";
        }
        $buffer = "";
        $series++;
    } else {
        chomp;
        $buffer .= $_;
    }
}
my @elements = split /N+/, $buffer;
for my $i (1 .. @elements) {
    print "Count$series.$i\n$elements[$i-1]\n";
}

__DATA__
>sequence1 123.3
ATGACGTAGACGATGAGTAGACGATAGCAGTGACAGGTGAGTG
ATGACGATGAGTAGAGACGGGGGTAGAGGGGGATAGATAGAGANNNNNNNN
ATAGACAGATAANNNNNNNNNNNNNNNNNAGATGAGACAGATANNNNNNN
>sequence2 143.5
ATGCGATGCNNNNNNCGTAGCTGANNNNNNCGATGCTGATGCTC
CGTAGTCTGCTAGCTAGTCNNNNNNCGTAGTCGATCGATCGANNNNNNCGTGCATGC
CGATGCTACGGATNNNNNCGATCGATCGATCGACNNNNNCGATCAGCTAG
CCCCGCTAGTCANNNNN
>sequence3 132.3
ATGCTGATCAGCTACGCTAGCNNNNNCGATCGATCGATCGACTAGCNNNNNNCGATCCGAGCT
CGATCGATCGATCGATCGANNNNNCGATCGATCGACTAGCNNNNNCGATCGATCGA
CGATCGATCGA
>C1132423 123.4
ATCGTGCATGCATCGATCGACTACGCTGCTACGATCGACTGCTAGCTACGCTAC
CGTCGATCGATCGACTACGCTGACTGACTAGCTAG
>C1123234 176.4
GCTAGCGATCGCACCGATCGATCGTACGCTACGATCGATCGATCGATCGACTGT
CGATCGATCGATCGATCGATCGA
>C1123546 531.1
CGTAGCTACGATCGATCGATCGACTAGCTACGATCGATCGACTAGCTAGCTAGCTAG
[download]

In reply to Re: Parsing and Modifying a flat file in perl by kennethk
in thread Parsing and Modifying a flat file in perl by ad23

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


There's more than one way to do things
	PerlMonks