Help for this page

Select Code to Download

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

Select or download this

foreach (unpack "U*") {
   ++$chars{$_}  if (ord($_) > 127);
...
while (my ($ch, $count)= each %chars) {
   printf "character U+%04x seen $count times.\n", $ch;
   }