#!/usr/bin/env perl
use Modern::Perl;

my @old = `cat old.txt`; chomp @old;
my @new = `cat new.txt`; chomp @new;
my %h; @h{@old} = @new;

my $text = `cat log.txt`;
$text =~ s/$_/$h{$_}/g for @old;
print $text;