sub filter_line {
  my ($i, $line);
  $line = shift;	
  foreach $i (@_) { 
    if ($line =~ /\b\Q$i\E\b/) { return 1 } 
  }
  return 0;
}