#!/usr/bin/perl
#On affiche "Donnez moi la phrase qui contient la somme exprimee en francs (Sous la forme 12 F ou 12.52 F) qu'il faut convertir en euros : "
#On retourne à la ligne
print "Donnez moi la phrase qui contient la somme exprimee en francs (Sous la forme 12 F ou 12.52 F) qu'il faut convertir en euros : \n";
#On affecte à la variable $phrase le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
$phrase=<STDIN>;
#On supprime le dernier caractère contenu dans la variable $phrase seulement si celui-ci est un retour à la ligne
chomp ($phrase);
#Si le contenu de la variable $phrase contient n'importe quel chiffre de 0 à 9 répété 1 à plusieurs fois, suivi ou non d'un point, suivi de n'importe quel chiffre de 0 à 9 répété 0, 1 ou plusieurs fois, suivi d'un espace et suivi d'un F ou d'un f, on exécute le bloc d'instructions
if ($phrase=~/([0-9]+\.?[0-9]*)( (F|f))/) {
	#On affecte à la variable $p le motif recherché qui se trouve dans la première paranthèse (Contenu dans la variable $1)
	$p=$1;
	#On affecte à la variable $gauche la chaîne de caractères qui se trouve à gauche du motif cherché (Contenu dans la variable $`)
	$gauche=$`;
	#On affecte à la variable $droite la chaîne de caractères qui se trouve à droite du motif cherché (Contenu dans la variable $`)
	$droite=$';
	#On affecte à la variable $symbole le motif qui se trouve dans la deuxième paranthèse (Contenu dans la variable $2)
	$symbole=$2;
	#Dans le contenu de la variable $symbole on remplace le F par un E
	$symbole=~s/F/E/;
	#Dans le contenu de la variable $symbole on remplace le f par un e
	$symbole=~s/f/e/;
	#On divise le contenu de la variable $p par 6.56 et on affecte le résultat à la variable $conversion
	$conversion=$p/6.56;
	#Si le contenu de la variable $conversion contient n'importe quel chiffre de 0 à 9 répété 1 ou plusieurs fois, suivi d'un point et suivi de deux chiffres de 0 à 9, on exécute le bloc d'instructions
	if ($conversion=~/([0-9]+\.[0-9][0-9])/) {
		#On affecte à la variable $conv le motif recherché qui se trouve dans la première paranthèse (Contenu dans la variable $1)
		$conv=$1;
	}
	#Si le contenu de la variable $gauche est égal à rien et si le contenu de la variable $droite est égal à rien, on exécute le bloc d'instructions
	if ($gauche eq "" && $droite eq "") {
		#On affiche "Resultat de la conversion en euros de la somme en francs : ", suivi du contenu de la variable $conv et suivi du contenu de la variable $symbole
		#On retourne à la ligne
		print "Resultat de la conversion en euros de la somme en francs : ",$conv.$symbole,"\n";
	}
	#Sinon si la condition n'est pas remplie, on exécute le bloc d'instructions
	else {
		#On affiche les uns à la suite des autres le contenu de la variable $gauche, le contenu de la variable $conv, le contenu de la variable $symbole et le contenu de la variable $droite
		#On retourne à la ligne
		print $gauche.$conv.$symbole.$droite,"\n";
	}
}
#Sinon si la condition n'est pas remplie, on exécute le bloc d'instructions
else {
	#On affiche "La phrase ne contient aucune somme exprimee en francs."
	#On retourne à la ligne
	print "La phrase ne contient aucune somme exprimee en francs.\n";
}