$text = join '', <DATA>;
print $text;
$text =~ s#<\s*b\s*>(?:[\s\n]|&nbsp;)*<\s*/\s*b\s*>##ig;
print $text;

__DATA__
<p>test
<p>test<b></b>
<p>test<b
>&nbsp;  
</b>
<p>test<b>  </b>
<p>test<b 
></b >
<p>test<B></B>
<p>test<B>

</B>
<p>test<B ></B>
<p>test<B
>  </B >
<p>test<B>  &nbsp;  &nbsp; </B>
<p><b>I am not empty!</b>