昔どっかで拾ってきたPerlのスクリプト、file.htmlの中の
『%_(変数名)_%』を$(変数名)に変換して、その変数の値を
反映して出力するものなんだけど、簡易テンプレートスク
リプトとしてかなり重宝してた。でも、勉強不足でその構造
はわからずじまい。

open FI, "file.html";
foreach(<FI>) {
s/%_(\w+)_%/${$1}/eg;
print;
}
close FI;

・・と、これをPHPにしたいんだけど、なんとかならない
だろうか？