sub parseEntry 
  { my ($twig,$element)=@_;
    my $id=$element->att("id");
    if ($id eq "OVAL3") 
      { $twig->flush(); 
        return 1; 
      } 
    else
      { $element->delete; }
    return 0; 
  }