Select Code to Download

    my $displayed;
    foreach my $s (split(//, $word)) {
...
        }
        $displayed .= " ";
    }

        my $displayed = join" ",
                        map { exists $correct_guesses{$_} ? $_ : '*' }
                        split//, $word;

    print "Fails remaining: $turns\n";
    print "Wrong guesses: ", join(" ", keys %wrong_guesses), "\n";
    print "Your guess: ";

        print "Fails remaining: $turns\n",
              "Wrong guesses: ", 
              join(" ", keys %wrong_guesses), "\n",
              "Your guess: ";

   if (!$guess =~ /[a-z]/ ...

   if ($guess !~ /[a-z]/ ...