$ perl -E '
    my $x = $ARGV[0];
    my ($start, $middle, $end) = $x =~ /^([^`]+)(.+?)([^`]+)$/;
    chomp(my $mid_eval = eval $middle);
    say $start, $mid_eval, $end;
' 'filename_`date +%d%m%Y`.log'
filename_17122019.log