if ( $char =~ /\d/ ) {
    print "It's a digit.\n";
}
if ( $char =~ /\w/ ) {
    print "It's a word-like character.\n";
}
if ( $char =~ /[a-zA-Z]/ ) {
    print "It's an asciibetical alpha character.\n";
}
if ( $char =~ /[[:alpha:]]/ ) {
   print "It's an alpha character.\n";
}