my $NotASCII = '[\x80-\xff]';