#!/usr/bin/perl

use v5.10;

use open ':std', ':encoding(UTF-8)';
# or binmode STDOUT, ':utf8';

use utf8;
use Encode qw(encode);

my $text = 'Café';
my @utf8 = unpack 'C*', Encode::encode 'UTF-8', $text;

say 'text: ', $text;
say 'dec:  ', join ' ', map { sprintf '%3d', $_ } @utf8;   
say 'hex:  ', join ' ', map { sprintf '%3x', $_ } @utf8;