foreachを等価なmapで置き換え。map関数ってあまり使ったことがないから、perldocを読みながら。ホントはforeachのままでいいんだけど、これも勉強。 $_ = encode($output_charset_legacy, $_) foreach ($name, $mail, $message, $date);から、 map {$_ = en…