>>14-17

ありがとうございます。

{2,}がキモですね。
上を参考にこれで確認しました。↓

my $br = qr/[\s\n]*<br \/>[\s\n]*/;
$string =~ s/$br{2,}/<br \/><br \/>/g;

あと、正規表現スレあったんですね。
失礼しました。