Oops, should have included this line in the wanted function

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

Also noticed your reg expression may not be what you want - may be better stated

s/^\$Log\b/\$History/
[download]

That is $Log only appears as the first item in the line of text and always uses the same letter capitalization. So, you wouldn't need the g modifier because the word only appears once (at the beginning) and you wouldn't want the i option because the case doesn't (?) change. I put in the \b because in $Log, there shuldn't be any following word characters (judging from the sample you posted).

Chris