#!/usr/bin/perl --
use Encode qw/ encode decode /;
my $string = decode("iso-8859-1", $octets);
{ ## probably works but if it doesn't
   use Win32::Unicode::File();
   Win32::Unicode::File::moveW( $rawness, $string );
}
{ ## should work
  open my $in, '<:raw', $rawness or die $!;
  {
    use Win32::Unicode::Native;
    open my $out, '>:raw', $string or die $!;
    print $out readline( $in );
    close $out;
  }
  close $in;
}