Select Code to Download

my $is_ascii = $string !~ /[^\x00-\x7F]/;

my $is_ascii = $string =~ /^[\x00-\x7F]*\z/;