#!/usr/bin/perl
#----------------------------------------------------------------------------------
# NOM : Estelle Salmon 
#----------------------------------------------------------------------------------
use strict;
use utf8;
binmode STDOUT, ':utf8';
#-------------------------------------------------------------------------------------

#-------------------------------------------------------------------------------------

open my $input ,"<:encoding(utf8)","sortie_perl_bao2_UD_conll_3244.udpipe.xml";
open(OUTPUT, ">:encoding(utf8)", "preInput.xml");
# on découpe le texte par phrases (liste d'items annotés et potentiellement dépendants)

while (my $phrase=<$input>) {
	
# ici on remplace les titre et description par p qu'on utilisera comme séparateur de phrases pour les dépendances
	$phrase=~s/<titre>|<description>/\n<p>\n/;
	$phrase=~s/(<\/titre>)|(<\/description>)/<\/p>\n/;

	print OUTPUT $phrase;
	
	
}	

close(OUTPUT);
	
	
