# subroutine name: unescape
# decode URL-encoded string
sub unescape {
	my($todecode) = @_;
	$todecode =~ tr/+/ /;	# pluses become spaces
	$todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
	return $todecode;
}