if ($string =~ /[^[:ascii:]]/) {
  # a non-ASCII character was found!
}