#!/usr/bin/perl -w
open(FILE,"$ARGV[0]");
open(FILEOUT,">cherche-mots.txt");
print "Quel mot voulez vous rechercher?\n";
$mot=<STDIN>;
$compteur=0;
$compte=0;
chomp ($mot);
while ($ligne = <FILE>) {
	while ($ligne=~/$mot/gi) { 
	$compteur ++;
	}
	$ligne=~s/$mot/<<$mot>>/gi;
	if ($ligne=~/<</gi){
		$compte++;
		print FILEOUT $ligne;
		}
	}
if ($compteur==0) {
	print FILEOUT "le mot <<$mot>> n'a pas été trouvé dans le fichier $ARGV[0]"
	}
if ($compteur>0) {
	print FILEOUT "\nle mot <<$mot>> est présent $compteur fois 
	dans $compte lignes du fichier $ARGV[0]"
	}
close FILE;
close FILEOUT;