open ($sites_fh, '<', $sites)or die "Can't open '$sites': $!";
chomp(@sites = <$sites_fh>);

open ($log_fh, '<', $log) or die "Can't open '$log': $!";
while (<$log_fh>) {
   foreach my $site (@sites) {
      push @bad_log, $_ if ($_ =~ /$site/);
   }
}
print "@bad_log\n"; #currently returns entire $log

##</code><code>##

www.yahoo.com
www.google.com
www.comcast.com

##</code><code>##

X456 TV-yes DB-no 123.12.23.45 dealio3 www.google.com-------- FX-yes d53 Y-03
X123 TV-yes DB-yes 34.154.43.21 dealio1 www.ask.com-------- FX-no d01 Y-03
X412 TV-no DB-no 192.365.25.23 rayovac2 www.microsoft.com--- FX-yes d13 Y-07