$startCh = chr(0);
$midstopCh = chr(9);
$midstartCh = chr(11);
$endCh = chr(31);

$text =~ s/[$startCh-$midstopCh,$midstartCh-$endCh]//g;