my $default = sub { '' };
...

($out_message = $log_format) =~ s/%(.)/($meta_char{$1} || $default)->()/ge;