($text = $html) =~ s/<(\/|!)?[-.a-zA-Z0-9]*.*?>//g;

##</code><code>##

$text =~ s/<[^>]*>//gs; # only for most simple html!
$text =~ s/<([^>]|\n)*>//g; # multi-line comments?