$string =~ s/(!\])\n{2,}/<br>/gs;