use strict; use locale; while ( my $ligne = ) { chomp $ligne; while ( $ligne =~ /\pL*ables?\b/g ) { print $&, "\n"; } }