use strict;
use File::Find;


my $dir = '\webdirectory';   

my ($line, $name); 
my $nameOne = 'alpha beta';
my $nameTwo = 'charlie'; 
my $ct = 0;
    
sub mySub
{
    $name = $File::Find::name;
    open ( DAT, $name ) || warn "Can\'t open File $name: $!\n";
        
       while($line = <DAT>)
       {
           if ($line != /$nameOne/i)
           {
              if ($line != /$nameTwo/i)
              {
                 print "$name\n";
                 $ct++;
                 last;
              }
           }
		 }
		   
           close DAT;
}


find( \&mySub, $dir  );



print "Total pages without the 'alpha beta' AND 'charlie' = $ct\n";