$text =~ s/\%([0-9A-F]{2})/chr(hex($1))/eg;