my $noprint = "\\x00-\\x1F\\x7F-\\xFF";