Perl Quiz

ネタをふられたので回答
http://d.hatena.ne.jp/hirafoo/20100319/1269007390

問題は以下参照

http://quill.to/yoshiki/0a66f62e14

びみょーなかんじだけど

再起の場合

$key =~/\./ ?  foo($a_ref->{$`}, $', $value) : ($a_ref->{$key} = $value);

evalの場合

$key=~s/\./}->{/g ? eval"\$a_ref->{$key} = $value" : ($a_ref->{$key} = $value);

ーー追記ーー
暗号といわれたので長い変数版

再起の場合

use English; # use のところに書いてください
$key =~/\./ ?  foo($a_ref->{$PREMATCH}, $POSTMATCH, $value) : ($a_ref->{$key} = $value);