use Encode;

my $f = "%C2%A3";

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

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