Add somes comments

defacement_check.pl

@@ -95,12 +95,14 @@ foreach $file (@files)
     my @clean;
     my $total_found = 0;
 
+    # Find the Threat
     foreach my $s (@search) {
       foreach (grep(/$s/i, split(/\n/, $site))) {
         push @found, $_;
       }
     }
 
+    # However, ignore this Threat please
     foreach my $i (@whitelist) {
       foreach (uniq(@found)) {
         foreach (grep(/$i/i, split(/\n/))) {