#!/usr/bin/perl
use warnings;
use strict;

use Devel::Peek;

my $s = "\N{LATIN SMALL LETTER S WITH CARON}i\N{LATIN SMALL LETTER C WITH CARON}";
for my $i (0 .. 2) {
    my $c = substr $s, $i, 1;
    Dump($c);
}