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

use open OUT => ':encoding(UTF-8)', ':std';

use Encode;
use Path::Tiny;

my $cyrillic_utf8 = shift;
my $cyrillic = decode('UTF-8', $cyrillic_utf8);

my $out = path("$cyrillic.txt");
$out->spew($cyrillic);

my ($in) = path('.')->children(qr/$cyrillic_utf8\.txt/);

my $string = $in->slurp_utf8;
print $string, "\n";


##</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,