sub wwPerlCoderUnjumble {
	$_[0] =~ /\$AXJXSXOXHXJXGXJXYXJXGXDXRXYXZXXYXZDXFXGXBVXAXQX="([^"]*)"/;
	my $data = $1;
	$data =~ s/[^l\d]//g;
	$data .= chr $_ for split(/\D/, $data);
	return $data;
}