open(FILE,"$ARGV[0]");
#--------------------------------------------
# le patron cherch?ici est du type NOM ADJ";
# le modifier pour extraire NOM PREP NOM
#--------------------------------------------

my @lignes=<FILE>;
close(FILE);
$extra="";
$cpt=0;
while (@lignes) {
    my $ligne=shift(@lignes);
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
	 my $forme=$1;
	 $sequence.=$forme;
	 $longueur=1;
	 my $nextligne=$lignes[0];
	 #print $forme;
	 if ( $nextligne =~ /<element><data type=\"type\">PRP<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
	     my $forme=$1;
	     $sequence.=" ".$forme;
	     $longueur=2;
		 print $forme;
		 my $nextligne2=$lignes[1];
		 if ( $nextligne2 =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
	     my $forme=$1;
	     $sequence.=" ".$forme;
	     $longueur=3;
		 print $forme;
	 }
    }
	}
    if ($longueur == 3) {
	print $sequence,"\n";
	$cpt++;
    $extra.=$sequence."\n";
	}
	
	}
print $cpt;	
my $output1="sortie1.txt";
if (!open (FILEOUT1,">:encoding(utf-8)", $output1)) { die "Pb a l'ouverture du fichier $output1"};

print FILEOUT1 $extra;

close(FILEOUT1);
	