Select Code to Download

use strict;
use warnings;
...
}

Dump (\%seqs);

$RO1 = 'seq1';
make_ro($RO1);
...
           glob     => 'GA{G,T}_GTG_CAG_CTT_CAG_CAG_TC{A,G}_GG',
           org      => 'GAK GTG CAG CTT CAG CAG TCR GG'
         };