while (<$file_handle>) {
    if (/[^[:ascii:]]/) { 
      # do something
    }
  }