Good point. But I think even more dangerous that using only [a-z] (my example, too). I think this should work quite well:

      next CHAR if $c =~ /^[[:punct:][:cntrl:][:blank:]]$/;
[download]

Add [:digit:] to exclude numbers, too.