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