my $sth=$dbh->prepare(q{
   SELECT * FROM foo WHERE bar LIKE ?
});
$sth->execute(q{it's not a problem});