perl test.pl R0000378.CAP

$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+)\.\w+/$1/;
$ziel = $x;

open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";

while ($line = <$INPUT>)
{
   if ($line =~ /.CBT/gsm)
   {
     $cbt = 1;
   }
   elsif ($line =~ /BARCODE/gsm)
   {
     $barcode = 1;
   }
   elsif ($line =~ /AATHD000000.000/gsm)
   {
     $falscheangabe = 1;
   }
   elsif ($line =~ /PASS/) 
   {
     $start_pos = tell($INPUT);
   }
   elsif ($line =~ /FAIL/) 
   {
     $end_pos = tell($INPUT);
   }
}

if ( $end_pos) 
{
  $status = '01';
  $result = 'Failed';

  seek($INPUT, $start_pos, 0);  
  $hit;

  while ($line = <$INPUT>)
  {                
     
    chomp($line);
    last if $end_pos <= tell($INPUT);    

    if ($line =~ /^\z/)
    {
      $hit = 1; 
    }

    if ($hit)
    {
      push @fehler, $line;
    }
  }

  $fehler = join(' ', @fehler);    
  $fehler =~ s/\s+/ /g;
                
              
} 
  else 
  {
    $status = '00';
    $result = 'Passed';
  }

close $INPUT;

if (($cbt != 1) || ($barcode != 1))
{
  unlink ($quelle);
}
elsif ($falscheangabe == 1)
{
  unlink ($quelle);
}
else
{
  open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";

  print OUTPUT "{\@BATCH|$sachnummer||GOEPEL_BSCAN||KDSNR:$kundennummer|ICT||PB/PL_P|uqm161|||\n";
  print OUTPUT "{\@BTEST|$seriennummer|$status|$starttest|||||n|n|$endetest||1|\n";
  print OUTPUT "{\@RPT|$result}\n";
  print OUTPUT "{\@RPT|$fehler}\n" if $fehler;
  close OUTPUT;
}