if ($piece =~ m/[ -~]/)