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

##</code><code>##

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