Select Code to Download

$string =~ s/\</\&lt\;/g; 
$string =~ s/\>/\&gt\;/g; 
...
$string =~ s/(<[\s\/]*)(script\b[^>]*>)/$1x$2/gi; # Never matches
$string =~ s/<*(iframe)[^>]+>//gi;                # Never matches
$string =~ s/<*(script)[^>]+>//gi;                # Never matches