I don't know how to post the file and keep the encoding. So below is some of the file displayed using vi in the hex mode.

Like this

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump        qw' pp     ';
use Encode::Detective qw' detect ';

my $file = shift or die "Usage: $0 filename > data.pl \n";
my $data = do {
    open my($fh), '<:raw' , $file or die $!;
    local $/;
    <$fh>;
};

my $encoding = detect($data);
print q{my $data = }, pp($data), ";
open my(\$fh), '<:$encoding', \\\$data or die;
...
";

__END__
my $data = "\xFE\xFF\0h\0i\0\r\0\n";
open my($fh), '<:UTF-16BE', \$data or die;
...
[download]