#!/usr/bin/perl
use YAML;

my $CFG = YAML::LoadFile $ARGV[0];

for (<STDIN>) {
#   s#L<YAML/([^/]+)>#make_table ($1)#gs;
   s#L<YAML/([^/]+)/(\S+)>#$CFG->{$1}->{$2}#egs;
   s#L<DATE>#`date`#egs;
   print;
}