Select Code to Download

$f->Button(-text => "Sug", -command =>\&tged)->pack(-side => 'right');

sub tged {

...
$t->tagAdd("replaced","sel.first","sel.last"); 

}

$t->tagConfigure("ch_clr",-foreground=>"red");    
$t->tagAdd("ch_clr","$start","$end_pt");

$t->tagConfigure("replaced",-foreground=>"black");    
$t->tagAdd("replaced","sel.first","sel.last");

$lsugs=@sugs;
print"\nThe length of the array:";
...
print"\nThe array contents after popping:";
print "@sugs\n";