utf8::upgrade( my $alphanums = $chars );
$alphanums =~ s/[\W_]//g;