<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>

return if $_fullsearch eq "";

{
 
get "fullsearch_match=10", $db;

 while(get_next $db)
 {
  $out="Treffer in $db: $Feld1 - $Feld2.... <br>"; # hier die ausgabe 1 Treffers
  $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
  out $out;
 }
}
</perl>