#!/usr/bin/perl -w
open(FILE,"essai.txt");
open(FILEOUT,">sortie_lettres_doubles.txt");
print "Tapez la lettre à chercher:";
$lettre=<STDIN>;
chomp $lettre;
$i=0;
while ($ligne=<FILE>){
	$i++;
	if ($ligne=~/\b\w*$lettre$lettre\w*\b/){
	$mot=$&;
	print FILEOUT "Dans la ligne numéro $i , 
	la lettre '$lettre' est redoublée dans le mot : $mot\n";
	}
}
close FILE;
close FILEOUT;