Help for this page
open IN, '<:utf8', $fn or ...; binmode(IN); # Short for binmode(IN, ':raw') in v5.8
open IN, '<:raw:utf8', $fn or ...;
local $/ = "\x0D\x0A"; ... s/\x0A/ /g; ... }