while($html =~ s/<br \/><br \/><br \/>/<br \/><br \/>/){
print '.';
}

連続した3つの改行タグを2つの連続した改行タグに置換しようとしてるんだけど、
改行タグが置換されません。