Select Code to Download

my $Set = qr/[^$CharSet]/;
length join "", split $Set, $SearchStr;

sub CountSetChars
  {
...
    }
  return $Count;
  }