#!/usr/bin/perl
use strict;
use warnings;
use Encode qw/encode decode/;

my ($byte,$decoded);
#$byte=chr(hex('0041'));
$byte=chr(hex('00E9'));

#decode bytes to char
$decoded=decode('UTF-8', $byte);

#encode char to byte for print
print encode('UTF-8', $decoded);