print "Sorry, you ran out of guesses.  My number was ";
    print $value;
    print ". \n"; 

##</code><code>##

    print "Sorry, you ran out of guesses.  My number was ", $value, ".\n";

##</code><code>##

    print "Sorry, you ran out of guesses.  My number was $value.\n";

##</code><code>##

#Guessing Game
#You only get 10 tries!
#Gives the option of starting over.
#This version should count your turns for you, down from ten.

use strict;
use warnings;

#This is how many guesses you get.
my $max_guesses = 10;

sub game
{
    #This is the number they have to guess: a random integer.
    my $value = int(rand(200));

    print "Pick a number between 0 and 200.\n";

    for (my $tries = $max_guesses; $tries; --$tries) {
        print "You have ", $tries, " guesses left.\n";
        my $guess = <STDIN>;
        if($guess>$value) {
            print "You need to guess a lower number.\n";
            print "Guesses left: ", $tries, "\n";
        } elsif($guess<$value) {
            print "You need to guess a higher number.\n";
            print "Guesses left: ", $tries, "\n";
        } else {
            print "You guessed my number in ", 
            	$max_guesses - $tries,
                " guesses.  Thanks for playing. \n";
            return;
        }
    }

    print "Sorry, you ran out of guesses.  My number was ", $value, ".\n";
}

my $again = 'y';
while ($again eq 'y')
{
    game();
    print "Play Again? (y/n) \n";

    $again = <STDIN>;
    chomp ($again);
}
print "Goodbye!\n";