#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use URI::Escape;

my $test =
"%D0%92%D0%BE%D0%BF%D1%80%D0%BE%D1%81 %D1%81%D1%82%D1%80%D0%BE%D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D1%81%D1%82%D0%B2%D0%B0 %D0%B2 %D0%95%D1%80%D0%B5";

binmode STDOUT, ":utf8";
print my $value = decode_utf8(uri_unescape($test)), "\n";