open(INPUTFILE,"defs.cfg");
                 
         my @fileIn=<INPUTFILE>;
                 
         close(INPUTFILE);
               
         my $actPos = 0;
               
         my $delPos = 0;
                 
         foreach my $aktIn (@fileIn) { 

               
             $actPos++;
               
             if($aktIn =~ /"(.*)","(.*)"/) {
               
 
               
               
  if($1 eq $suchen) {
               
               
      $matching = "true";
               
               
      $delPos = $actPos;
               
     
               
               
      splice(@fileIn, $delPos, $delPos, 1);

               
               
  } else {
               
               
      if($matching ne "true") {
               
               
          $matching = "false";
               
               
      }
               
               
  }
               
             }                
               
      
               
             
               
     }