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

use open OUT => ':utf8', ':std';
use Encode;


my @strings = ("\N{LATIN SMALL LETTER C WITH CARON}",
              "c",
              "\N{LATIN SMALL LETTER C WITH CEDILLA}",
              "\N{LATIN SMALL LETTER C WITH ACUTE}");

my $i = 4;
push @strings, map encode('utf-8', $_), @strings;

say join ',', map "$_: " . ord, split // for sort @strings;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,