for 「 (.*?) 」/g

いくらPerlでもこんな自由な書き方できないだろ?