use locale;
use strict;

print "Entrez une ligne de texte : ";
my $ligne = <STDIN>;
chomp $ligne;

my $n;

while ( $ligne =~ /\pL+/g ) {
    $n++;
    print "Mot numéro ", $n, " : ", $&, "\n";
}