Hi, What you exactly want to check is that whether all the characters in the file/string are within the ASCII character range. There are several ways to check this.

First, using a :ascii:. Store the file/string you want to check in a variable, say $str

if($str !~ /[^[:ascii:]]/)
{
   print "Non ASCII character found in $.";
}
[download]

:ascii: is built-in perl function to check whether there are any non-ascii characters in the content.

Secondly, give a range of ASCII characters and find whether your $str is within that range.

if ($str =~ /[^!-~\s]/g){print "Non-ASCII character found"}

This is a kind of question which is very frequently asked in this forum. Please try Super search. You will get a lot other ways to do this.