foreach $mitem(@missing) { 
  $result=$t->search(-forwards,"**",'end');
  #print"\nThe start pos of the pattern:";
  #print "\n$result";        #1.4
  
  $start=$result+.2;
  #print "\n$start";         #1.6
     
  $x=substr($start,0,1);# integer
  $y = substr($start,2,2);# integer
  #print $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";
  }
 
   #$x=1;
   #$y=6;
      
   #$l=length(@chars);
   #$fract=(($y+$l)-1);
   #$wd_end=$x.$fract;
                     
#$t->tagConfigure("wrong",-foreground=>"red");	
#$t->tagAdd("wrong","$start","$wd_end");
  
#print "\n@chars";
  
 }

##</code><code>##

do { 
               
     $white_space=" ";

  for( 1 .. 10 )
   {
   .....
    stuff inside for loop.
   .....
   }
  
 } until ($char_read eq $white_space);
 
##</code><code>##

e.g. **word  **nextword

##</code><code>##

$char_read=$t->get("$start_pt","$start_pt wordend");