#!/usr/bin/perl -l

use strict;
use warnings;
use URI::Escape;

my $f = '%C2%A3';
my $safe = uri_escape($f);
my $str  = uri_unescape($safe);
print uri_unescape($str);