Sure, in pseudocode (or wishfulthinking code) it's a piece cake:

print_greeting();
reset_score();

OUTER:
while ( 1 ) {
  my $current_question = ask_next_question();
 
  my $attempts = 0;
  while ( $attempts++ < $MAX_ATTEMPTS ) {
    my $answer = get_answer();
    last OUTER if $answer eq 'q';
    last if check_answer( $current_question, $answer );
    print_sorry_try_again();
  }

  if ($attempts < $MAX_ATTEMPTS ) {
    print_congratulations();
    update_score( 1 );
  }
  else {
    explain_correct_answer( $current_question );
    update_score( 0 );
  }
}

print_score();
print_good_bye();
[download]

Thanks for your help! I tried using your method and got the following. It sorta works as it either says you got it right or wrong. However I don't know how to make it go back to the beginning if they got it right. It just sort of sits there until you make 4 more wrong guesses after you make it right.

What do I need to do?

while (1)
{
   
   ###########
   # Heart of the game- Choose and scramble a word
   ###########
   my $word = $words[rand @words];

   my @scramble = split(//, $word);

   @scramble = sort { (-1,1)[rand 2] } @scramble;

   print "\n\nGuess the scrambled word: ";
   foreach (@scramble) {print $_};
   print "\n\n";


   my $attempts = 0;

   while ($attempts++ < $max_attempts)
   {

      #####
      # Take their guess
      #####
      my $guess = <STDIN>;
      chomp($guess);

      if ($guess ne "$word")
      {
         print "$guess is incorrect.\n";
         $attempts++;
      }
      else
      {
        print "Congratulations!  The scrambled word was $word.\n\n";
      }
   }
   
}
[download]

The quick fix would be to insert a last after the "Congratulations" line, like this:

  {
    print "Congratulations!  The scrambled word was $word.\n\n";
    last;
  }
[download]

but IMHO I would advice you to follow the structure I gave you more closely; I think you will find that your script is clearer, and more easily modified and debugged if you actually implement functions like check_answer(), etc., that I used in the "wishfulthinking code". The more your code looks like pseudocode, the clearer it will be.

the lowliest monk

If this is a web application, you could simply add a couple of hidden fields to your question form, one to track current question and another to track number of attempts. Then increment 'current question' for correct answers and 'attempts' for wrong ones.

Of course, users could cheat by altering the hidden fields. So you could do the same thing with cookies to make it a little more difficult. Or, if you want to get a little fancy, you could use a sessionID.

#!/usr/bin/perl

use strict;
use warnings;

sub ask_question;

my $question_count = 0;
    
1 while ask_question ++$question_count;
exit;
            
sub ask_question {
    my $question_count = shift; 
    my $wrongs = 3;
    local $| = 1;
    for (my $prompt = "This is question $question_count: ";
            $wrongs --;
            $prompt = "Incorrect, try again: ") {
        print $prompt;
        chomp(my $answer = <>);
        return 0 if $answer =~ /^q(?:uit)?$/i;
        return 1 if $answer =~ /^a(?:nswer)?\s+$question_count$/i;
    }
    print "Still incorrect. The answer is 'answer $question_count'\n";
}

__END__
[download]