#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use feature qw{ say };

binmode *STDOUT, ':encoding(UTF-8)';
say substr('Æon Flux', 0, 1);

binmode *DATA, ':encoding(UTF-8)';
say substr <DATA>, 0, 1;

__DATA__
Æon Flux

##</code><code>##

Æ
Æ