Select Code to Download

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

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

print "$annotation, $dna\n";