Wow, that seems a really brute force way to detect a non-ASCII character. If all you really need to do is detect it, I'd apply a regex to each line ... maybe like in this (untested) example:

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