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