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

##</code><code>##

print "$character\n" if $character =~ m/[^[:^alpha:]a-zA-Z]/;