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

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

use Encode;
use URL::Encode qw{ url_decode };

my $string  = '%d0%be%d0%b1/%d1%81%d1%82%d0%b5%d0%bd';
my $octets  = url_decode($string);
my $unicode = decode('UTF-8', $octets);

say $unicode;
[download]

($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,
[download]