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
}

#! /usr/bin/perl

use strict;
use warnings;

my $string = qq~Normaler Text! #Aufzählung1# #Aufzählung2# Normaler Text usw. #Aufzählung3#~;

$string =~ s/#([^#]+)#\s?/<ul><li>$1<\/li><\/ul>/g;
print $string;

$details[4] =~ s/$zeichen([^$zeichen]+)/<li>$1<\/li>/g;

print<<ENDE;
    <tr>
     <td>$details[2]&nbsp;$details[3]</td>
    </tr>
    <tr>
     <td><ul>$details[4]</ul></td>
    </tr>
ENDE

my $txt = $details[4];

my @t = split /#/, $txt;

for (my $i=0; $i<@t; $i+=2) {
    print "normaler Text: $t[$i]\n";
    print "Aufzählung: ", $t[$i+1], "\n" unless $i == $#t;
}

#! /usr/bin/perl

use strict;
use warnings;

my $sign = '#';
my $string = qq~Normaler Text! #Aufzählung1# #Aufzählung2# Normaler Text usw. #Aufzählung3#~;

$string =~ s/$sign([^$sign]+)$sign\s?/<li>$1<\/li>/g;
$string =~ s/(<li>.*?<\/li>(?!\s*?<li>))/<ul>$1<\/ul>/g;

print $string;

~/entwicklung 5> perl string.pl
Normaler Text! <ul><li>Aufzählung1</li><li>Aufzählung2</li></ul>Normaler Text usw. <ul><li>Aufzählung3</li></ul>

$details[4]=~ s/\n/<br>/g;
$details[4]=~ s/$sign([^$sign]+)$sign\s?/<li>$1<\/li>/g;
        $details[4]=~ s/(<li>.*?<\/li>(?!\s*?<li>))/<ul>$1<\/ul>/g;

$details[4]=~ s/$urlsign([^$urlsign]+)$urlsign\s?/<a href="$1" target="_blank"'>$2<\/a>/g;

my $string = '~Foobar§http://test.de~';
my $linksign = '~';
my $delimiter = '§';

$string =~ s!$linksign([^$delimiter]+)$delimiter([^$delimiter]+)$linksign!<a href="$2" target="_blank">$1</a>!g;
print $string,"\n";