I assume the user inputs a search string in some tk widget like an entry widget? So what you need to do is just create a subroutine that calls the "configure" widget option for all the labels or other widgets that your created so far.

for example:

#!/usr/local/bin/perl 

use Tk;

my $mw = MainWindow->new();
$button = $mw->Button(-text => "hello", -activebackground => 'red',
                     -command => \&printit)->pack();

MainLoop;


sub printit {
   $button->configure(-text => "you pressed me");
}
[download]

Justin Eltoft