Hi Stfan,

$body =~ s/\n\n/<br><br>/g;
$body =~ s/\n/<br>/g;
while($body =~ /\s\s/) {
  $body =~ s/\s\s/&#160;&#160;/g; }

Das mit dem \s/&#160; hab ich mir auch schon überlegt, aber dann dachte ich wieder, es würde vielleicht zu viel Platz vergeuden, wenn ich alle \s eben durch 160 ersetze, aber ich werde es vielleicht in Erwägung ziehen.