#formatting
$text->tagConfigure('color', -foreground =>"red",-font => "Courier $font_kwic bold");
	
#search
$text->FindAll(-exact, -nocase, $word_search);

#Need here to tag all matches