use strict;
use locale;

print "Entrer un nom commun masculin singulier : ";
my $nom = <STDIN>;
chomp $nom;

my $pluriel;
if ( ($nom eq "ours") or ($nom eq "lynx") or ($nom eq "putois") ) {
    $pluriel = $nom;
}
else {
    $pluriel = $nom . "s";
}

print "Les flexions de \"", $nom, "\" sont :\nun ", $nom, 
    "\ndes ", $pluriel, "\n";