Select Code to Download

while (<IN_FILE>) {
  s/^\ +//;
...
  s/\ *-\t-\ */-/g;
  s/\ +$//;
}

my @PROC_INDEXES = map $_ - 1, @PROC_FIELDS;
while (<IN_FILE>) {
...
}
close IN_FILE;
close OUT_FILE;