use strict; use locale; $/="\n\n"; while ( my $paragraphe = ){ $paragraphe =~ s/\n/ /g; $paragraphe =~ s/ +/ /g; while ( $paragraphe =~ /\b(le |la |les |l\' ?)(\pL+)/g ) { print $&,"\n"; } }