>>970
こういうのじゃだめかしらん?

$html =~ s/<br \/><br \/><br \/>/<br \/><br \/>/gm;
print $html;