Select Code to Download

sub decode_it {
my $value = shift || '';
...
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $value;
}

print "content-type: text/plain\n\n";