my $charclass = join "", grep {1 == length} keys %factor;