#!/usr/bin/perl

use Encode; 

binmode STDOUT, ":utf8";
binmode STDIN, ":ucs-2be";

while(<>){
  print decode( "ucs-2be", $_ );
}