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