my @l_o = ('a'..'z');
my %l_o;
@l_o{@l_o} = (0 .. 25);
+sub word_sanitize{
+ return map {tr/A-Z/a-z/; tr/éüöáí/euoai/; $_ } @_
+}
my $database = update_and_load_database($options{database_dir},$options{wordlist});
while (<$wordlist_fh>) {
chomp;
next unless length $_;
- my $word = lc($_);
+ my $word = word_sanitize($_);
$word =~ s/[^a-z]//;
next unless length $_;
next if exists $seen_words{$word};