open IN, '<:utf8', $fn or ...;
binmode(IN);  # Short for binmode(IN, ':raw') in v5.8

##</code><code>##

open IN, '<:raw:utf8', $fn or ...;

##</code><code>##

   local $/ = "\x0D\x0A";

   open(local *IN, '<:raw:utf8', $filename)
      or die("Unable to open input file $filename: $!\n");

   while (<IN>) {
      chomp;
      s/\x0A/ /g;
      ...
   }