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