Select Code to Download

use Encode;

...
$f =~ s/%([a-fA-F0-9]{2})/pack('C', hex($1))/eg;

my $decoded = decode("UTF-8", $f);