Select Code to Download

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

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