#!/usr/bin/perl -w
open(FILE,">sortie_localisation.txt");
$texte="Il y a 2 mois, ce n'est pas toi qui a découvert cette vieille armoire, 
cachée sous la toiture\n.Moi, je te dis que c'est bien moi, il y a 2 ou 3 mois ";
print "Taper le mot à chercher:";
$motif=<>;
chomp($motif);
print "Taper la sous-chaine à chercher:";
$motif2=<>;
chomp($motif2);
print "Taper le mot de début de phrase à chercher:";
$motif3=<>;
chomp($motif3);
if ($texte=~/\.$motif/i) {
print FILE "Recherche du mot : $motif\n";
}
else {print FILE "Echec de la recherche du mot : $motif\n";
	}
if ($texte=~/$motif2/i) {
print FILE "Recherche de la sous-chaine : $motif2\n";
}
else {print FILE "Echec de la recherche de la sous-chaine : $motif2\n";
	}
if ($texte=~/^$motif3/i) {
print FILE "Recherche de : $motif3\n";
}
else {print FILE "Echec de la recherche du mot : $motif3 en début de ligne\n";
}
close FILE;