Select Code to Download

use Encode      qw( encode decode );
use URI::Escape qw( uri_escape );
...

# Prints OverlordQ/R%C4%ABga-Herson-Astrahan
print(join('/', @uri_components), "\n");

  DB<18> x $str
0  'http://en.wikipedia.org/w/api.php?prop=revisions&format=xml&titles
+=User:OverlordQ/R&#299;ga-Herson-Astrahan&action=query&rvlimit=20'

  DB<24> x $str
0  'http://en.wikipedia.org/w/api.php?prop=revisions&format=xml&titles
+=User:OverlordQ/R%C3%84%C2%ABga-Herson-Astrahan&action=query&rvlimit=
+20'

#!/usr/bin/perl
use strict;
use warnings;
...
        my $string = shift;
        return utf8::is_utf8($string);
}