#!/usr/bin/perl

use strict;

my $prefix="Kick";
my $Restart="Restart.data";

open( RESTART, $Restart ) or die "Unable to read $Restart: $!\n";
my $AlreadyDone = <RESTART>;
my ( $jobs_run ) = ( $AlreadyDone =~ /(\d+)/ );

for ( my $j=0; $j<=$jobs_run; $j++)
{
    my $job_title = sprintf( "%s%04d", $prefix, $j );
    if ( open( my $fh, "<", "$job_title.log" )) {
        seek( $fh, -24, 2 );
        read( $fh, my $job_end, 24 );
        unlink "$job_title.data" unless ($job_end =~ /Normal/);
    }
    else {
        warn "Unable to read $job_title.log: $!\n";
    }
}