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