Select Code to Download

my @job_nums = 0 .. $jobs_run;
my $logs = join q{ }, map { sprintf "$prefix%04d.log" } @job_nums;
...
unlink map { s/\.log$/.data/; $_ }
       map { $tail_pairs[$_*2] }
      grep { $tail_pairs[1+$_*2] !~ /Normal/ } @job_nums;