Select Code to Download

use warnings;
use strict;
...
>seq2
BGTNHYMJUKOPK
MNBFSDFGHJ

$VAR1 = {
          '>seq1' => [
...
                       'MNBFSDFGHJ'
                     ]
        };