#!perl

use strict;
use warnings;

my $pre = join "",  <ARGV>;
my %vars = ($pre =~ /\* \[([^\s;]+)\] = (.+)$/gm);

$pre =~ s[#\{(.+?)\}]{$vars{$1} ? $vars{$1} : $&}ge;

print $pre;

これだけ書くのに30分ぐらいかかった！！　むずい。