($out_message = $log_format) =~ s{%(.)}{
    my $m = $meta_char{$1};
    (ref sub {} eq ref $m) ? $m->() : $1
}ge;