#!/usr/bin/perl
# Idiom #304 Encode string into UTF-8 bytes
use v5.10;
use open ':std', ':encoding(UTF-8)'; # or binmode STDOUT, ':utf8';
use utf8;
my $text = 'Café';
my $utf8 = $text;
utf8::encode($utf8);
my @utf8 = unpack('C*', $utf8);
say 'text: ', $text;
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMzMDQgRW5jb2RlIHN0cmluZyBpbnRvIFVURi04IGJ5dGVzCgp1c2UgdjUuMTA7Cgp1c2Ugb3BlbiAnOnN0ZCcsICc6ZW5jb2RpbmcoVVRGLTgpJzsKIyBvciBiaW5tb2RlIFNURE9VVCwgJzp1dGY4JzsKCnVzZSB1dGY4OwpteSAkdGV4dCA9ICdDYWbDqSc7Cm15ICR1dGY4ID0gJHRleHQ7Cgp1dGY4OjplbmNvZGUoJHV0ZjgpOwoKbXkgQHV0ZjggPSB1bnBhY2soJ0MqJywgJHV0ZjgpOwoKc2F5ICd0ZXh0OiAnLCAkdGV4dDsKc2F5ICdkZWM6ICAnLCBqb2luICcgJywgbWFwIHsgc3ByaW50ZiAnJTNkJywgJF8gfSBAdXRmODsgICAKc2F5ICdoZXg6ICAnLCBqb2luICcgJywgbWFwIHsgc3ByaW50ZiAnJTN4JywgJF8gfSBAdXRmODsgICAK