Select Code to Download

use strict;
use warnings;
...
    rename ($output_path, $input_path) or
        die "Unable to rename $output_path to $input_path:$!";
}

while (<$in>) { 
if $in =~ /^^/ { s/\^\^/\n^^/g; 
print $out $_; 
else { s/[a]|[c]|[t]|[g]{6}/^^\n }

    while (<$in>) 
    {
...
        print $out $_;

    }

Created: Tuesday, July 12, 2005 4:17 PM
LOCUS       AJ877263                 663 bp    DNA     linear   INV 15
+-APR-2005