Return to Perl/名詞句AのB抽出方法