Select Code to Download

$value    =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # carg
+o

$todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;          # CGI

# unescape URL-encoded data
sub unescape {
...
    $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
    return $todecode;
}