@range = map {chr()} (0, 31, 128, 255);
$s =~ s/[$range[0]-$range[1]|$range[2]-$range[3]]//g;