Select Code to Download

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

use CGI 
$q = new CGI;
$string = $q->param('string');