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

my ($byte,$decoded);
#get bytes
$byte=`perl -MEncode -e "print encode('UTF-8',chr(hex('00E9')))"`;

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

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