>>757
よく判らないのでてきとーに？

$a="すあまさんは$1の$2が好き";
my %machted_Reg_Hash = map +( $_, eval "$_"), $a=~ m|(¥$[1-9とか])|g;
で、、、
printf qq|"%s" =>"%s"|, $_, $machted_Reg_Hash{"$_"} for keys $machted_Reg_Hash{"$1"};
したら、、、
php=>RegExp
perl=>うんこー
長門=>--○◎●
になるみたいな？

♯あっと、、、evalの後には$@チェックを入れたいよなぁ・・・