my $file = shift;
my $enc = "UTF-16";
open(FILE, "<:encoding($enc)", $file) || die("Can't: $!");
while ( <FILE> ) {
    print;
}    
close(FILE);

##</code><code>##

my $file = shift;
my $enc = "UTF-16";
open(FILE,$file) || die("Can't: $!");
while ( <FILE> ) {
    my $str = decode($enc,$_);
    print encode($enc,$str);
}    
close(FILE);