get "Id=*", "dbnames";
while (get_next(dbnames))
{
$anz_subname.= "- $dbname <br>";
  if ($code ne "")
  { $anz_vorh_sub = $dbname;
   $txt_sub = convert_br(convert_html($code));
  eval "sub $dbname { $code }";
  }
}
wobei hier $anz_subname und $txt_sub als Debug-Ausgabe fungieren und auch ordnungsgemäß belegt werden.

if ($use)
{
$anz_mitteltext.=&{$use};
}
$anz_mitteltext.="<!-- Var aus sub $use soll beendet sein -->";
kommt nichts zurück. Wie gesagt, bei handischem Eintrag der Sub ins Script kommt das Gewünschte zurück und wird an $anz_mitteltext angehängt. Irgendwie wird der Code der Sub nicht evaluiert, ich komm aber nicht dahinter, warum.