Select Code to Download

#require 5.6;
use strict;
use warnings;
...
    print "$char found $chars{$char} times\n";
}
print "found ". keys(%chars) . " distinct non-ascii chars\n";

while(<>){
  while (my @matches = /[^\x{1}-\x{7f}]/g){
...
     ++$chars{$&};
  }
}