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