#/usr/bin/perl
open(filein, "segmentsrepetes.txt");
open (fileout, ">filtrage-SR.txt");
while ($ligne=<filein>) {
  if ($ligne=~/<td>(.*)<td.*/gi) {
  my $motif=$1;
  if ($motif=~/crise/) {
  $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);
