Perl 初心者コーナー Part23

[0552 550 03/05/28 21:22 ID:???]

あ、最後の行
$body_item->{'body'} = join ("\n", @{$body_item->{'body'}});
↓
@{$body_item->{'body'} = join ("\n", @{$body_item->{'body}});
変更。