#!/usr/local/ActivePerl-5.14/bin/perl -w
use feature 'unicode_strings';
use utf8;
use warnings;
use strict;

my ($file) = @ARGV;
open DATAFILE, "<:encoding(UTF16-LE)", "$file";

while (<DATAFILE>) {
    my $string = $_;

    my @list = unpack( 'A' x length($string), $string );

    print $string;
    foreach (@list) {
        my $char = $_;
        my $ordi = ord($char);
        binmode STDOUT, ":utf8";
        print "Character:\t" 
          . $char . "\t"
          . sprintf( '%2.2x', unpack( 'U0U*', $char ) ) . "\n";

    }

}