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

use XML::LibXML;

my $file = shift;

my %to_cyrilic = (
    # Insert the hash definition here, see below.
);
my $regex = join '|', sort { length $b <=> length $a } keys %to_cyrilic;

my $dom = 'XML::LibXML'->load_html( location => $file );
for my $text ($dom->findnodes('//text()')) {
    my $etext = $text;
    $text->setData($etext) if $etext =~ s/($regex)/$to_cyrilic{$1}/g;
}
print $dom;


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