use locale;
use strict;

print "Entrez un nom : ";
my $chaine = <STDIN>;
chomp $chaine;

if ( $chaine =~ /(.*)s$/ ) {
    print "Votre nom se termine par un s\n";
    print "Si c'est un pluriel régulier, son singulier est ",
           $1,"\n";
}
else {
    print "Votre nom ne se termine pas par un s\n";
}