#!/usr/bin/perl
$tofrench{dog}= "chien";
$tofrench{cat}= "chat";
$tofrench{the}= "le";
$tofrench{rat}= "rat";
$tofrench{food}= "nourriture";
$tofrench{its}= "sa";
$tofrench{eats}= "mange";
$tofrench{in}= "chien";
$tofrench{garden}= "jardin";
print " Veuillez saisir une phrase en anglais à traduire en francais. 
Pour vous arreter, tapez 'STOP'.\n ";
while (<>) {
	 chomp($_);
	 $ligne = $_;
	 if ($ligne eq "STOP") { 
		print "Voici votre phrase traduite:\n\n$texte\n";
		exit;
		} # Si on saisit "STOP", ça s'arrête
	 else {
	 	 @phrase=split(/ /, $ligne);
	     foreach my $mot (@phrase){
		    $ligne=~s/$mot/$tofrench{$mot}/g;
		 }
	 $texte .=" $ligne\n"; 
			}
}