1.12 ユーザ入力した変数を展開する

次のような変数を含む文字列を読み込む。
You owe $debt to me.
このとき、文字列内の$debtを格納されている値に置き換えたい。

# 変数が全てグローバル変数の場合は、シンボリックデリファレンスを使用して置換
$text =~ s/\$(\w+)/${$1}/g;

# 変数にレキシカル変数が含まれる可能性のある場合は、/eeを使う
$text =~ s/(\$\w+)/$1/gee;