Select Code to Download

  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);
}

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

binmode STDOUT, ':utf8';

$title = decode('utf8',$title);

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