# Building the array of terms:

my @terms = ();
while (my $term = <F1>) {
    chomp $term;
    push @terms, $term;
}

##</code><code>##

# Printing sources that do not match of of the terms:

while (my $source = <F2>) {
    chomp $source;
    print "$source\n" unless grep { $source =~ /$_/ } @terms;
}