Home

/

CGI Remove a range of ANSI characters

Remove a range of ANSI characters

my $newstring="^&()E~,<  >./?d&*))&*+_)(*&^!12345%$#@";
my $output="";

foreach $c (split(//,$newstring)){
	$ac=unpack("C",$c);
	if($ac>65 and $ac<122){
		$output=$output.$c;
	}
}

print "$output = $output";