33.  What does the E in PERL stand for? 

34.  How many lines of output will the following program produce, if the 
     user typed in HELLO at the ENTER DATA: prompt? 
     Note: Do not count the ENTER DATA: prompt as a line of output. All 
           other lines, including blank lines, count as output. 

     #------------------------------------------------------------------

       print "ENTER DATA: ";
       $data = <STDIN>;       # User typed in HELLO. (SEE NOTE ABOVE!)

       while (length $data > 0)
       {
          print $data . "\n";
          chop $data;
       }
       print "\n ----------------- \nThat is all for this program! \n"; 
 
       #------------------------------------------------------------------

34.  Show the exact output of the above program, in question #33.

35.  What does whipupitude refer to in regard to Perl and Larry Wall,
     its creator?

36.  a.  How many times does the print substr() statement get executed
         for the following program?

     b.  What is the exact output of the following program?

               $panthers = "UNIPanthers";

               for ($i = 0; $i <= 3; $i++)
               {
                  print substr($panthers, $i, $i + 1)  .  "\n";
               }                

37.  What is the output of the following remainder calculating program?  
     Recall that the % is the remainder or mod operator.
     For example: (87 % 20) gives the value 7, 
                           since 87 divided by 20 gives a remainder of 7.

     for ($i = 10; $i <= 90; $i += 10)
     {
        print "\n  $i \% 7 ---> "  .  $i % 7  .  "\n";
     }                      

38.  Now, lets combine questions #36 and #37 and try to figure out
     what the output of the following combination of for loops, 
     the % operator and the substr() function would be.

     What is the output of the following?

         $panthers = "UNIPanthers";

         for ($i = 0; $i <= 7; $i++)
         {
            print substr($panthers, $i, ($i % 4) + 1)   .   "\n";
         }