my $index = '1.0';
while (my $result = $text->search(-nocase => "$word_search", $index, 'end')){
    $text->tagAdd('color', "$result wordstart", "$result wordend")
    $index = "$result wordend";
}