Nun klappt es soweit, komisch nur, dass
elsif ($response->content =~ /$query->param('suche')/gi) {
print "<li><a href="$uri">$uri</a> | Suchausdruck: ".html_escape($query->param('suche'))." -> gefunden</li>\n" if $query->param('treffer');
}
nie matcht :-/
Es wird immer die else-Anweisung am Ende ausgeführt.