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