if (&check($data,$sex,$age,$optid)) { 
			print "OK"; 
		} 
	} else { 
			print "FALSE"; 
	} 
 
sub check{ 
	my ($data,$sex,$age,$optid) = @_; 
	my $returnVl = 0; 
	(@atoms) = split(/&&/, $data); 
	$if_string = "if ("; 
	for (@atoms) { 
		$if_string .= "($_) && "; 
	} 
	#remove the last two & and a space 
	$if_string = substr($if_string, 0, -3).") {\n"; 
	$if_string .= " return 1; 
		} else { 
			return 0; 
		} 
	"; 
	eval ($if_string); 
}