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