#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use utf8;
use open ':std', ':encoding(UTF-8)';

say substr('Ĉon Flux', 0, 1);
say substr <DATA>, 0, 1;

__DATA__
Ĉon Flux