Select Code to Download

(
  (SECTION (Section_KEY Value1)
...
    )
  )
)

open ( BRD, "<foo.kicad_pcb") or die("ha ha");
while (<BRD>)
...
  $DATA_HASH{SECTION}{KEY3} = Value4;
  $DATA_HASH{NEW_SECTION}{SUB_SECTION}{KEY4} = Value5;
  $DATA_HASH{NEW_SECTION}{NEW_SUB_SECTION}{KEY5} = Value6;