while (@details = $sth->fetchrow_array ())
{
# Zeilenumbruch einfuegen
$details[4]=~ s/\n/<br>/g;
 
# Text nach Aufzaehlungszeichen Splitten
$details[4] =~ s/$zeichen([^$zeichen]+)/<ul><li>$1<\/li><\/ul>/g;
 
print<<ENDE; 
    <tr>
     <td>$details[2]&nbsp;$details[3]</td>
    </tr>
    <tr>
     <td>$details[4]</td>
    </tr>
ENDE
}