++$char{$&} while (/[^\0-\x{7f}]/g);