#!/usr/bin/perl -w
use strict;
use Devel::Peek;

open my $input_fh,
    '<:raw:perlio:encoding(UTF-16):crlf', 'Input.txt';

my $line = <$input_fh>;
chomp $line;
Dump $line;