while (@details = $sth->fetchrow_array ())
    {

    # Zeilenumbruch
    $details[4]=~ s/\n/<br>/g;

    # Aufzaehlungszeichen
    $details[4]=~ s/$sign([^$sign]+)$sign\s?/<li>$1<\/li>/g;
        
    print<<ENDE;  

    <tr>
               <td>$details[4]</td>
    </tr>

ENDE

        }