print "$character\n" if $character =~ m/[^\Wa-zA-Z\d_]/;