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

  seek($INPUT, $start_pos, 0);                
               
  while ($line = <$INPUT>) 
  {     
    chomp($line);

    last if $hit && $line =~ /^\d+:\d+/;
        if ($line =~ /^\z/)
    {
      $hit = 1;
    }

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

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