while (@details = $sth->fetchrow_array ())     {     # Zeilenumbruch     $details[4]=~ s/\n/
/g;     # Aufzaehlungszeichen     $details[4]=~ s/$sign([^$sign]+)$sign\s?/
  • $1<\/li>/g;              print<                $details[4]      ENDE         }