my $entree=shift;
my $Out = shift;
  
  open(ENTREE, "<$fentree");
  open(OUT, ">$Out");
  
  print OUT '<?xml version="1.0" encoding="iso-8859-1" standalone="no"?>', "\n",
  '<document>', "\n", '<article>', "\n";
  
  while(my $l = <ENTREE>){
      if ($l!~/\ô\¯\:\\ô\¯\:\\/) {
          $l =~ s/\"/<![CDATA[\"]]>/g;
          $l =~ s/\&/<![CDATA[\&]]>/g;
          
          my ($mot1, $mot2, $mot3) = split(/\s/,$l);
  
           
          $l ='<element>'. 
                              '<data type="string">'. $mot1 . '</data>'.
                              '<data type="type">'. $mot3 . '</data>'. 
                              '<data type="lemma">'. $mot2 . '</data>'.
                              '</element>'; 
          
          print OUT $l, "\n";
      }
  }
  print OUT  '</article>', "\n", '</document>', "\n";
  close OUT;