#!usr/bin/perl -l

use strict;
use warnings;
use URI::Encode qw(uri_decode);

my $encoded = 'http://commons.wikimedia.org
  /wiki/File:Atelerix_algirus.jpg%E2%80%8E';
print uri_decode($encoded);