Help for this page

Select Code to Download

Select or download this

my $locus;

...
    }
    print $out $_;
}

Select or download this

        ( $locus ) = ( /LOCUS\s+(\w+)/ );