Your question is somewhat confusing. What is decimal value of "Unicode(UTF-8) character"? There is Unicode standard that assigns 32-bit number to image of a character. There's UTF-8 encoding that can be used to represent 32-bit number as sequence of bytes that is backward compatible with ASCII only text. So, do you want to have decimal value from Unicode standard, or decimal value of the sequence of bytes from UTF-8 encoding? The latter one does not really make sense since number of bytes can be 3 or 5 and then you'd have to decide how you create "decimal" from it.
Assuming that you want codes assigned by Unicode standard and the bytes used to represent those codes as UTF-8 sequence. Also assuming that you start from codes. Then the following can be used
use utf8;
use Encode;
my $code = 208; # the unicode expressed as decimal
my $char = chr($code); # convert to internal perl character
my $utf8_octets = encode("UTF-8", $ch); # get sequence of bytes in UTF
+-8
print sprintf("Decimal: %d, Hex: %x, Bits: %b\n", $code, $code, $code)
+;
print "UTF-8 hex: ", unpack("H*", $utf8_octets), "\n";
print "UTF-8 bits: ", unpack("B*", $utf8_octets), "\n";
This is the same as what choroba has offered, just using different way, without file handles and redirection.
If you want to go from characters to codes, then you get $code via ord($char).