#!/usr/bin/perl 
use utf8;
my $fichier=$ARGV[0];
my $patron=$ARGV[1];
my $patron2=$ARGV[2];
#my $patron3=$ARGV[3];
open(TOTO,"$fichier")  or die "Impossible d'ouvrir le fichier $fichier en écriture";

#while (<TOTO>) {

while( defined( $l = <TOTO> ) ) {

#    system "grep -A1 '[$patron]' $fichier";
chomp $l;
$l=~s/\r?\n//g;
 $resultat =system "pcregrep -M '$patron.\n.*$patron2' $fichier | cut -f1 ";
 

}

close(TOTO);



