use strict;
use warnings;

my $string = <<'HTML';
<script><!-- 
if (a<b && a>c) alert('<');
//-->
</script>
<IMG SRC = "foo.gif" ALT = "A > B">

<IMG SRC = "foo.gif"
	ALT = "A > B">

<!-- <A comment> -->

<script>if (a<b && a>c)</script>

<# Just data #>

<![INCLUDE CDATA [ >>>>>>>>>>>> ]]>

<!-- This section commented out.
     <B>You can't see me!</B>
-->
HTML
   
$string =~ s/<.+?>//g;
   
print $string;