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