local $/ = undef;
open(LOG, 'log_file') or die("couldn't open file");
binmode LOG;
$log = <LOG>;
    
foreach $file (@files){
$file_counts{$file}[0] =()= $log =~ /<regexp1>/gi;

$file_counts{$file}[1] =()= $log =~ /<regexp2>/gi;
}

##</code><code>##

while(<LOG>){
   if(/GET\s.*\/(\S+)\.pdf\s/i and exists $file_counts{$1}){
      $file_counts{$1}[0]++;
   }
}

##</code><code>##

GET /folder1/folder2/file.pdf HTTP ..etc