Select Code to Download

$VAR1 = '';
$VAR2 = {
...
        };

my $rec;
        while ( <$fh> ) {
        if (s/^\[(.*?)\]\s*//){$rec = $1}

(
  "CELL_NAME",
...
    THIRD   => 123,
  },
)