if ($string =~ /[^[:print:]]/) {
  print "Found unprintable characters\n";
}