Select Code to Download

try **until **you **succeed

foreach $mitem(@missing) { 
  
...
    
  #$t->tagConfigure("wrong",-foreground=>"red"); 
  #$t->tagAdd("wrong","$start","wordend");

@chars=$t->get("$start","$start wordend");
  print "\nThe word:";
  print"\n@chars";