Help for this page
utf8::upgrade( my $alphanums = $chars ); $alphanums =~ s/[\W_]//g;
( my $alphanums = $chars ) =~ s/\P{Alnum}//g;