□実践 -- from here --
foreach ( @body ) {
chomp;
from_to( $_, 'jis', 'utf8' );
if ( /(.*)=(.*)/ ) {
$data{ $1 } = $2;
$name = $1;
}
else {
$data{ $name } .= $_;
}
}
----------------
□コメント 元々僕は、BSDスタイルでも、GNUスタイルでも無かったので、素直に受け入れられた。