$data =~ y/+/ /;
$data =~ s/%[0-9a-f]{2}/pack('C', $1)/egi;