#!perl -w
use strict;
use 5.010;

use File::Find;

find (\&do_work, '.');

my $was;

sub do_work
{
        return if $File::Find::dir =~ /\/_vti_|\.\/Boris($|\/)|\.\/PlainTexts($|\/)/;

        return unless /\.html?$/i;

        return if $File::Find::name =~ /^\.\/CV\/checklink\.htm$/;

        open F, "<$_";

        while (<F>)
        {
                if (/(?<!font-family:"|[ld]-separator:")\\|PrivateAddr|<del |<ins |=file:|file:\/\//)
                {
                        next if $File::Find::dir =~ /^\.\/i$/ and /\$/;

                        next if $File::Find::dir =~ /^\.\/libro-/ and /GN\\O|<\/b> \\ <b>/;

                        say 'The following files contain \\, PrivateAddr, revision info, "file:" hrefs or other problems:'
                                unless $was++;

                        say "$File::Find::name: $_";
                }
        }
}

say "There were $was errors" if $was;

__END__

@echo off
echo The following files contain \\, PrivateAddr, revision info, "file:" hrefs or other problems:
grep -d \\              *.htm*
grep -d PrivateAddr     *.htm*
grep -d "<del "         *.htm*
grep -d "<ins "         *.htm*
grep -d "=file:"        *.htm*
grep -d "=\"file:"      *.htm*
grep -d "file://"       *.htm*
pause
echo Done.