Perlコーディング初心者質問スレ Part 52

[0239 238 2006/10/06(金) 11:16:22 ID:???]

chomp($data);
$data=~ s/.+\z//;