#!/usr/bin/perl


open (F1, "<filterTerms.txt");
open (F2, "<source.txt");

my %terms = ();
my %source = ();

while (<F1>)
	{
	
	my $term=$_;
	chomp ($term);
	$terms{$term}=$term;
	
	}

while (<F2>)
	{
	my $item=$_;
	chomp ($item);
	$source{$item}=$item;
	
	foreach (keys %source)
		{
			if ($source=~m/($term{$term})/)
			{
			#do nothing
			}
			else
			{
			print $1."\n";
			}
		}
	}
	
close (F1);
close (F2);