#!/usr/bin/perl

use strict;
use warnings;

use Encode qw(decode);

my $ascii_hex = 'D6D0';   # continue for as many bytes as required

my $bytes = pack('H*', $ascii_hex);

my $character_string = decode('gb2312', $bytes);

binmode(STDOUT, ':utf8');

print $character_string, "\n";