if ($string =~ /[[:^ascii:]]//) {