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