diff options
| -rw-r--r-- | bin/jotto.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/jotto.pl b/bin/jotto.pl index 82406e6..4d9f509 100644 --- a/bin/jotto.pl +++ b/bin/jotto.pl @@ -5,8 +5,8 @@ use Games::Word qw/shared_letters/; use Games::Word::Wordlist; my $wl = Games::Word::Wordlist->new('/usr/share/dict/words'); -$wl->remove_words($wl->words_like(qr/^(\w{0,4}|\w{6,})$/)); -$wl->remove_words($wl->words_like(qr/^[A-Z]/)); +$wl->remove_words($wl->words_like(qr/^(.{0,4}|.{6,})$/)); +$wl->remove_words($wl->words_like(qr/[^a-z]/)); my $word = $wl->random_word; my $guesses = 0; while (1) { |