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

##</code><code>##

( my $alphanums = $chars ) =~ s/\P{Alnum}//g;