perl - Change the character length of single line strings using regex -

after "text" itemprop = "text">

I have a GenBank file with a \ N (at least one that contains single lines of wire with 60 bases The scene is extracted) How to modify the sequence using Perl, it uses 120 lines using regescs for each line and does not bioparlate. Original format:

  1 agatggcggc gctgaggggt cttgggggct ctaggccggc cacctactgg tttgcagcgg 61 agacgacgca tggggcctgc gcaataggag tacgctgcct gggaggcgtg actagaagcg 121 gaagtagttg tgggcgcctt tgcaaccgcc tgggacgccg ccgagtggtc tgtgcaggtt 181 cgcgggtcgc tggcgggggt cgtgagggag tgcgccggga gcggagatat ggagggagat 241 ggttcagacc cagagcctcc agatgccggg gaggacagca agtccgagaa tggggagaat 301 gcgcccatct actgcatctg ccgcaaaccg gacatcaact gcttcatgat cgggtgtgac 361 aactgcaatg agtggttcca tggggactgc atccggatca ctgagaagat ggccaaggcc 421 atccgggagt ggtactgtcg ggagtgcaga gagaaagacc ccaagctaga gattcgctat 481 cggcacaaga agtcacggga gcgggatggc aatgagcggg acagcagtga gccccgggat  

I only managed to make them In the wire with a length of 60 characters, still trying to figure out how Missed elongate 120 characters

  my line @ = & lt; $ FH_IN & gt ;; My $ line foreach (@lines) {if ($ line = ~ m / (^ \ s * \ d + \ s) [acgt] {10} \ s /) {$ line = ~ s / $ 1 //; $ Line = ~ s / / g; Print $ line; }  

}

Examples of input:

  agatggcggcgctgaggggtcttgggggctctaggccggccacctactggtttgcagcgg agacgacgcatggggcctgcgcaataggagtacgctgcctgggaggcgtgactagaagcg gaagtagttgtgggcgcctttgcaaccgcctgggacgccgccgagtggtctgtgcaggtt cgcgggtcgctggcgggggtcgtgagggagtgcgccgggagcggagatatggagggagat ggttcagacccagagcctccagatgccggggaggacagcaagtccgagaatggggagaat gcgcccatctactgcatctgccgcaaaccggacatcaactgcttcatgatcgggtgtgac aactgcaatgagtggttccatggggactgcatccggatcactgagaagatggccaaggcc atccgggagtggtactgtcgggagtgcagagagaaagaccccaagctagagattcgctat  

.

There are 60 bases for each single line string

update (still not deliver seq lines with 120 bases long):

  My @ seq_60; My $ line foreach (@lines) {if ($ line = ~ m / (^ \ s * \ d + \ s) [acgt] {10} \ s /) {$ line = ~ s / $ 1 //; $ Line = ~ s / / g; Push (@ seq_60, line $); }} My @ output; (; $ Position & lt; @ seq_60, my $ position = 0 $ position + = 2) {push (. @output, $ seq_60 [$ status] $ seq_60 [$ status + 1]); } Print @ output;