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