my @wort = split (/\s+/, $suchen); my $verkn = "AND"; # Standard-Verknüpfung $verkn = "AND" if $auswahl eq "alle"; $verkn = "OR" if $auswahl eq "eins"; # pro wort ein test; test mit $verkn verbinden # das ganze in Klammern push (@bedingung, "(" . join (" $verkn ", ("$select LIKE ?") x @wort) . ")" ); # Um die Worte Joker % rummachen push (@platzhalterdaten, map { "%$_%" } @wort); if (@bedingung) { $where = "WHERE ". join (" AND ", @bedingung); } $where = "" unless $where; $select = lc $select; $sql = qq{SELECT * FROM event_topic $where ORDER BY time}; $sth->execute(@platzhalterdaten);