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

##</code><code>##

foreach (unpack "U*") {
   ++$chars{$_}  if (ord($_) > 127);
   }

# ... later
while (my ($ch, $count)= each %chars) {
   printf "character U+%04x seen $count times.\n", $ch;
   }