#/usr/bin/perl
open(filein, "segmentsrepetes.txt");
open (fileout, ">filtrage-SR.txt");
while ($ligne=<filein>) {
 if ($ligne=~/<td>(.*crise.*)<td.+/gi) {
	$motif=$1; 
	# On ne garde pas les lignes qui contiennent "minute" car elles ne sont pas pertinentes pour notre recherche
	$motif=~s/Le suivi minute par minute de la crise financière//; 
	$motif=~s/minute par minute de la crise financière//;
 print fileout "$motif\n";
  }
}
close (filein);
close (fileout);