use locale;
use strict;

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

if ( $chaine =~ /s$/ ) {
    print "Votre mot se termine par un s\n";
}
else {
    print "Votre mot ne se termine pas par un s\n";
}