open(FILE,"$ARGV[0]"); # ARGV[0] > Le ficheir Cordial
my @lignes=<FILE>;
close(FILE);
while (@lignes) { # debut du parcours
    my $ligne=shift(@lignes); # on enleve la premiere ligne
    chomp $ligne;
    my $sequence=""; # ici on va concatener les match
    my $longueur=0; #nombre d'elements du patron
    if ( $ligne =~ /^([^\t]+)\t[^\t]+\t$ARGV[1]/) { # match avec le premier element du patron *ligne a changer pour treetager*
	 $sequence.=$1; # s'il y a match avec la regexp, on ajout le resultat a la liste 
	 $longueur++;
	 my $indice=1; # indice dans la liste Cordial 
	 my $stop=1;
	 while (($indice < $#ARGV) and ($stop == 1)) { # condition
	     my $nextligne=$lignes[$indice-1]; # condition supplémentaire: si la longueur est bonne mais les elements ne matchent pas, on tient pas en compte la ligne 
	     if ( $nextligne =~ /^([^\t]+)\t[^\t]+\t$ARGV[$indice+1]/) { # match avec le deuxieme element du patron *ligne a changer pour treetager*
		 $sequence.=" ".$1;
		 $longueur++;
	     }
	     else {
		 $stop=0;
	     }
	     $indice++;
	 }
	 if ($longueur == $#ARGV) { 
	     print $sequence,"\n";
	 }
     }
}

