sub wanted {
    if (-f) {
        tie my @array, 'Tie::File', $_ or die $!;
        s/\$Log/\$History/gi for @array;
        untie @array;
    }
}

##</code><code>##

s/^\$Log\b/\$History/