use strict;
use locale;

print "Entrez un nom masculin singulier (ou X pour finir) : ";
my $nom = <STDIN>;
chomp $nom;

while ( $nom ne "X" ) {
    my $pluriel = $nom . "s";
    print "Les flexions de \"", $nom, "\" sont :\nun ", $nom, 
      "\ndes ",$pluriel, "\n\n";
    print "Entrez un nouveau nom (ou X pour finir): ";
    $nom = <STDIN>;
    chomp $nom;
}

print "Fin du programme !\n";