#!/usr/bin/perl
# Idiom #287 Number of bytes of a string
use v5.10;
use charnames
qw( :full
); use Encode;
my $text = "\N{LATIN SMALL LETTER E WITH ACUTE}";
my $utf8 = Encode::encode('UTF-8', $text);
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMyODcgTnVtYmVyIG9mIGJ5dGVzIG9mIGEgc3RyaW5nCgp1c2UgdjUuMTA7CnVzZSBjaGFybmFtZXMgcXcoIDpmdWxsICk7CnVzZSBFbmNvZGU7CgpiaW5tb2RlIFNURE9VVCwgJzp1dGY4JzsKCm15ICR0ZXh0ID0gIlxOe0xBVElOIFNNQUxMIExFVFRFUiBFIFdJVEggQUNVVEV9IjsKc2F5IGxlbmd0aCAkdGV4dDsgICMgMQoKbXkgJHV0ZjggPSBFbmNvZGU6OmVuY29kZSgnVVRGLTgnLCAkdGV4dCk7CnNheSBsZW5ndGggJHV0Zjg7ICAjIDIK