foreach $mitem(@missing) { 
   #print"\n$mitem";
  
  $result=$t->search(-forwards,"**",'end');
  #print"\nThe start pos of the pattern:";
  #print "\n$result";        #1.4
                                            
  ($x, $y) = split '\.' => $result;
  $y += 2;
                                
  #print "\n$x";                
  #print "\n$y";
  
  $z=$y + 1;
  #print $z;
    
  for( 1 .. 10 )
  {
    $start_pt="$x.$y";   # string
    #print " $start_pt ";
    $y++;
    $end_pt="$x.$z";   # string
    #print " $end_pt ";
    $z++;
    
    $char_read=$t->get("$start_pt","$end_pt");
    #print "\nThe charcter:";
    #print "\n$char_read";				
    push @chars,$char_read;
    #print "\nThe word:";  
    #print "\n@chars";
    last if $char_read eq /\s/; 
  } 
}

##</code><code>##

  for( 1 .. 10 )

##</code><code>##

last if $char_read eq /\s/;

##</code><code>##

       white_space=" ";         
         #for loop stuff
       until $char_read eq white_space;