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;
}