Select Code to Download

#!/usr/bin/perl
use strict;
...

my ($annotation, $dna) = ($1, $2);
print "$annotation, $dna\n";

LOCUS some guff ORIGIN
, Another line of guff