$data =~ s/%([\da-fA-F]{2})/chr(hex($1))/eg;