my $pattern = qr(test);

my @items = $lb->get(0, 'end');
for(my $i=$#items;$i>0;$i--){
  if ($items[$i] !~ /$pattern/) {
    $lb->delete($i);
  }
}

my $eingabe= $frame2->Entry(-textvariable=>\$suchvariable ,-exportselection=>1 ,selectbackground=>"green" ,-selectforeground=>"yellow")->pack(-anchor=>"w" ,-padx=>10 ,-pady=>5 ,-fill=>"x");

#####   suche in listbox  ###################################################
sub such_pattern{

	my @elements;
	my @ergebnisliste;
	my $elem;

	$fehler->delete("1.0","end");

	if ( (defined $suchvariable) && (length($suchvariable) > 0)  ) {
		print "suchvariable: $suchvariable\n";
		###  alle elemente der listbox erhalten  #################
		@elements = $liste->get(0,"end");
		foreach $elem (@elements) {
			if ( $elem =~ m/$suchvariable/i ) {
				print "$elem\n";
				push(@ergebnisliste, $elem);
			}
		}
	
		### etwas gefunden -->  baue neue listbox (Liste) auf  ########
		if ( defined $ergebnisliste[0] ) {
			$liste->delete(0,"end");
			foreach $elem (@ergebnisliste) {
				$liste->insert("end" , $elem);
			}
		} else {
			$fehler->insert("end", "\n\n\nNichts gefunden");	
		}	
	} else {
		print "is nix\n";
	}
} ## sub such_pattern   ####################################################