I'd like to suggest this bugfix. I downloaded ENABLE and unziped and all. But for some reason my perl (5.6.0 and 5.6.1 on Mandrake 8.0) wouldn't read that file properly. It kept cutting off the last character of the words. I'm a bit out of practice on my Perl, so I havn't deciphered the reason, but this fixed it for me.

By the way, thanks a ton for this program. I'm writing a short story spoof of Alice based on word ladders for a class, and I need this program to produce lots of ladders for me. At least, if my idea pans out. Perhaps if the story is any good, I'll put up a link, though it will have little to do with Perl. ;)

# This is around line 40
# Insert this where the second 'my @wordlist;' is declared.

my @wordlist;

while (<WORDS>) {
    $_ =~ /(\w*)/;
    $_ = $1;
    push @wordlist, $_
      if length $_ == length $word[0];
}

close (WORDS);
[download]