$string =~ m/[\x00-\x7f]/