If I understand you correctly, you just want the contents of toFind and the contents of toReplace in the same log file, right? Would this work?

But I confess I really don't know what you're doing or why you're doing it. Perhaps most importantly, you seem to make a distinction between "about 1200 files", and "a log file", but the code you have shown has no evidence of that (or, indeed, output of any kind). The $data =~ ... bit looks like it might be the original text replacement, but then where is the log file? Or is there another explanation entirely?

thanks you so much for your input and quick response

Here I go through a loop of files and after reading files into $data I find and replace them using the write_file

            
$data =~ s/$_->{toFind}/$_->{toReplace}/g foreach (@myHashArray);
            write_file($File::Find::name, $data);
            print LOGFILE "$counter $File::Find::name\n";
            print LOGFILE "\t Original line: HERE WOULD BE MY ORIGINAL
+ LINE\n";
            print LOGFILE "\t Replaced Line: HERE WOULD BE THE NEW LIN
+E\n";
            print "$counter $File::Find::name\n";
[download]

Ok, that helps. If your files are indeed line-based (i.e., your patterns do not span multiple lines), then I suggest processing them line-by-line:

use File::Slurp;

my @myHashArray = ( { toFind => qr/(?i)foo/, toReplace => 'bar' } );
my $counter = 0;

my $name = 'data_file'; # $File::Find::name
for my $line (read_file('data_file', chomp => 1)) {
    $counter++;
    my $orig_line = $line;
    $line =~ s/$_->{toFind}/$_->{toReplace}/g for @myHashArray;
    next if $line eq $orig_line;
    print "LOG: $counter $name\n";
    print "LOG: \t Original line: $orig_line\n";
    print "LOG: \t Replaced line: $line\n";
}
[download]

Here I've replaced LOGFILE with a LOG: prefix for ease of testing, and eliminated the reliance on File::Find for the same reason.

With the following data_file:

Foolius Caesar
Footholomew Cubbins
No changes here
Just another barrage of text
[download]

I get the following output:

LOG: 1 data_file
LOG:      Original line: Foolius Caesar
LOG:      Replaced line: barlius Caesar
LOG: 2 data_file
LOG:      Original line: Footholomew Cubbins
LOG:      Replaced line: bartholomew Cubbins
[download]

Does that help?

use strict; use warnings; omitted for brevity.

$data =~ s/($_->{toFind})/($_->{toReplace})/g foreach (@myHashArray);
[download]