$str =~ m/([^?-~])/