#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use feature 'say';
use Encode qw(decode encode);
use String::HexConvert ':all';

binmode( STDOUT, ':utf8' );
my $Chinese = '北亰'; # Chinese characters for Bei Jing (U+5317 U+4EB0)

say 'UTF-8';
my $utf8 = encode( 'UTF-8', $Chinese );

my $ascii2hexUTF8 = ascii_to_hex($utf8);
$ascii2hexUTF8 = join(' ', split(/(..)/, $ascii2hexUTF8));
say $ascii2hexUTF8;

$ascii2hexUTF8 =~ s/^\s+|\s+$//g;
say $ascii2hexUTF8;

__END__

$ perl test.pl
UTF-8
 e5  8c  97  e4  ba  b0
e5  8c  97  e4  ba  b0