unix板の正規表現スレから誘導されました。

-----test.dat-----
木立（こだち）のなかに（夏目弱石）
山の上の芋粥（いもがゆ）（芥川蛇の介）
----------------

上のデータから最後の括弧から括弧までを取り除きたいです。
括弧はずべて全角です。

while(<>) {
　chomp;
　s/（.+?）$//;
　print "$_\n";
}

ですとうまくいきません。s/\Q（\E.+?\Q）\E$//;もだめですた。
perl5.6で、文字コードはeucです。
よろしくお願いします。