open(FILE,"$ARGV[0]");
#--------------------------------------------
# le patron cherchŽ ici est du type ADJ NOM";
#--------------------------------------------
my @lignes=<FILE>;

close(FILE);
while (my $ligne=shift(@lignes)) {
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /<element><data type=\"type\">ADJ<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
        
		my $forme=$1;
       
		$sequence=$forme;
		$longueur=1;
        
        
		my $nextligne=$lignes[0];
		if ( $nextligne =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
            
			my $forme=$1;
			$sequence=$sequence." ".$forme;
			$longueur=2;
		}
    }
    if ($longueur == 2) {
	print $sequence,"\n";
    }
}
