my $st = $dbh->prepare(q[
  SELECT foo, bar, baz
    FROM whatever
   WHERE foo = xyz AND bar IS NOT NULL AND ...
]);