my $ST = $DB->prepare(<0 and ( length(A.evidence_code)<12 or substring(A.evidence_code,length(A.evidence_code)-2,1)<>'8') ) and (A.centre=? or A.centre=?) EOSQL $ST->execute($Reference, $Comparitor, ".$Reference.", ".$Comparitor.");