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