Select Code to Download

for($i = 0; $i <= $last_dir; $i++) {
            (
...
             ) = split (/\"\|/, $tmp_2[$i], 7);
            #printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}

for($i = 0; $i <= $last_dir; $i++) {
            @{$data[i]}(qw(deleted_file void the_dir first_pointer las
+t_pointer has_subdir has_iden))
              = split (/\"\|/, $tmp_2[$i], 7);
            #printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}

for($i = 0; $i <= $last_dir; $i++) {
  ($data[i]{deleted_file}, $void, $data[i]{the_dir}, $data[i]{first_po
+inter}, 
...
              = split (/\"\|/, $tmp_2[$i], 7);
            #printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}