Help for this page
Select Code to Download
Select
or
download this
if($str !~ /[^[:ascii:]]/) { print "Non ASCII character found in $."; }