#!/usr/bin/perl

use strict;

my $body = "Dies ist mein [HAUS]\n\n\nUnd ich wohne darin";

$body =~ s/(?!\])\n+/<br>/gs;

print $body;