my $annotation = '';
my $dna = '';

##</code><code>##

($annotation, $dna) = ($record =~ /^(LOCUS.*ORIGIN\s*\n)(.*)\/\/\n/s);

##</code><code>##

print "$annotation, $dna\n";