while (<$in>) 
    {
        my $locus =~ /LOCUS\s+(\w+)/;           
        s/\^\^/>$locus\n^^\n/g;
        print $out $_;

    }


##</code><code>##

Created: Tuesday, July 12, 2005 4:14 PM
LOCUS       AJ877264                 704 bp    DNA     linear   INV 15-APR-2005