- or download this
print OUT "Genome: \n $line\n";
# ^^ ^^
- or download this
use strict;
use warnings;
...
61 aaaccctaaa ccctaaaccc taaaccctaa accctaaacc ctaaacccta aaccctaaac
121 cctaaaccct aaaccctaaa cgatgcatta ctactcacac gaacgagtga atgaaacaca
- or download this
18:35 >perl 2007_SoPW.pl
Genome: ccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaa
+accctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaacccta
+aaccctaaacgatgcattactactcacacgaacgagtgaatgaaacaca
18:35 >