my @job_nums = 0 .. $jobs_run;
my $logs = join q{ }, map { sprintf "$prefix%04d.log" } @job_nums;
my $tail_rx = qr{
    ==> (.+?) <== \n
    ( [^\n]* )    \n
}xms;

my @tail_pairs = `tail -n 1 $logs` =~ $tail_rx;
unlink map { s/\.log$/.data/; $_ }
       map { $tail_pairs[$_*2] }
      grep { $tail_pairs[1+$_*2] !~ /Normal/ } @job_nums;