Select Code to Download

[\x{0} -\x{7e}]

 Code Points            1st Byte  2nd Byte  3rd Byte  4th Byte

...
            00000bbbbbaaaaaa     110bbbbb  10aaaaaa
            ccccbbbbbbaaaaaa     1110cccc  10bbbbbb  10aaaaaa
  00000dddccccccbbbbbbaaaaaa     11110ddd  10cccccc  10bbbbbb  10aaaaa
+a

my $patttern ={
  [\x{c2-df}\x{80-bf}] |
  [\x{e0-ff}\x{a0-bf}\x{80-bf}] |
  [\x{e1-ef}\x{80-bf}\x{80-bf}] |  #I leave off the rest here
};

while(<FILE>){
   if (/$pattern/ox)  #options to allow whitespace in the pattern, and
+ to prevent the compiler from recalculating it at every run)
...
  print "unpack 'U*', $_ matched $chars{$_} times.\n";

#I am unsure on the "unpack"