Perl 初心者コーナー Part22

[0678 nobodyさん 03/05/08 13:07 ID:???]

while(<DATA>){
s/(.*)（.*?）\s.?$/$1/;
print;
}

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