Perl 初心者コーナー Part23

[0574 nobodyさん 03/05/28 21:55 ID:???]

$str =~ s/^(.*?)\n(.*?)\n(.*?)\n/$1$2$3/;