Dazu gehören leere Listen <ul></ul> oder Paragraphen mit
Zeilenumbrüchen und non-breakable spaces <p><br><br> </p>
$content =~ s{ (?:\ |\s)+ }{ }gx;
$content =~ s{ (?:\ |\s)+$ }{}gx;
$content =~ s{ (?: <br/?> )+$ }{}gx;
$content =~ s{ (?:\ |\s)+ }{ }gx;
$content =~ s{ (?:\ |\s)+$ }{}gx;
$content =~ s{ (?: <br/?> )+$ }{}gx;
+ $content =~ s{ <ul>\s*</ul> | <ol>\s*</ol> }{}igx;
+ $content =~ s{ (?: <p>\s*</p>\s* )+ \Z }{}imgx;
my @parts = grep { $_ } map {
if (substr($_, 0, 1) eq '<') {
my @parts = grep { $_ } map {
if (substr($_, 0, 1) eq '<') {