#/usr/bin/perl
open(FILEOUT, ">Convertisseur.txt"); 
print "Veuillez saisir une phrase qui contient une somme en francs\n";
my  $phrase = <STDIN>;
chomp $phrase;
if ($phrase=~/[^0123456789]*(\d+)((f|F))\w*/){
	$francs=$1;
	$monnaie=$2;
	$euros=$francs/6.5557;
	$phrase=~s/$francs/$euros/gi;
	$phrase=~s/$monnaie/ euros/gi;
}
print FILEOUT $phrase;
close FILEOUT;