##
foreach $mitem(@missing) {
$result=$t->search(-forwards,"**",'end');
#print"\nThe start pos of the pattern:";
#print "\n$result";
$start=$result+.2;
#print "\n$start";
@chars=$t->get("$start","$start wordend");
print "\nThe word:";
print"\n@chars";
#$t->tagConfigure("wrong",-foreground=>"red");
#$t->tagAdd("wrong","$start","wordend");
##
##
@chars=$t->get("$start","$start wordend");
print "\nThe word:";
print"\n@chars";