Select Code to Download

while (<DATA>) {
    unless ( /\A#|^$/ ) {
...
        }
    }
}

while (<DATA>) {
  next if /^\s*#/;
...
    $hash{$f[0]} = $f[1];
  }
}