my $displayed;
	foreach my $s (split(//, $word)) {
		if (exists($correct_guesses{$s})) {
			$displayed .= $s;
		} else {
			$displayed .= "*";
		}
		$displayed .= " ";
	}

##</code><code>##

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

##</code><code>##

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


##</code><code>##

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

##</code><code>##

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

##</code><code>##

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