Kick0000.inp
Kick0000.data
Kick0000.log

##</code><code>##

#!/usr/bin/perl -s

$prefix="Kick";

$Restart="Restart.data";

open (RESTART,"$Restart") or die "Unable to open $Restart for reading\n";
$AlreadyDone = <RESTART>;
$jobs_run= sprintf '%04d',($AlreadyDone);

for (my $j=0;$j<=$jobs_run;$j++)
{
   $job_no=sprintf '%04d',($j);
   $job_title="$prefix$job_no";
   $job_end=`tail -n 1 $job_title.log`;
   if($job_end !~ /Normal/)
   {
      `rm $job_title.data`;
   }
}