Select Code to Download

use Data::Dumper;

...
1,-82,AGTTGAAAAAAATTT    AAAAA AAAAA AAAAA AAAAT AAATT AATTT
=============

$VAR1 = {
          'Set1' => {
...
          'Set2' => { }
        };