my $ENTREE=shift;
my $SORTIE = shift;
  
  open(ENTREE, "<$ENTREE");
  open(SORTIE, ">$SORTIE");
  
  print SORTIE '<?xml version="1.0" encoding="iso-8859-1" standalone="no"?>', "\n",
  '<document>', "\n", '<article>', "\n";
  
  while(my $l = <ENTREE>){
      if ($l!~/\ô\¯\:\\ô\¯\:\\/) {
          # Remplacement des guillemets par <![CDATA["]]> (évite erreur d'interprétation XML)
          $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">'. $mot2 . '</data>'. 
                              '<data type="lemma">'. $mot3 . '</data>'.
                              '</element>'; 
          
          print SORTIE $l, "\n";
      }
  }
  print SORTIE  '</article>', "\n", '</document>', "\n";
  close SORTIE;