$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 LINE\n"; print "$counter $File::Find::name\n";