#!/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;