perlで入れ子にマッチさせるのってどう書くの？鬼車なら分かるんだけど。