utf8 Property Meaning
\p{IsASCII} ASCII character
\p{Cntrl} Control character
\p{IsDigit} A digit between 0 and 9
\p{IsGraph} Alphanumeric or punctuation character
\p{IsLower} Lowercase letter
\p{IsPrint} Alphanumeric, punctuation character, or space
\p{IsPunct} Any punctuation character
\p{IsSpace} Whitespace character
\p{IsUpper} Uppercase letter
\p{IsWord} Alphanumeric word character or underscore
\p{IsXDigit} Any hexadecimal digit
use utf8;
$chr=65;
print "$chr is a digit.\n"if $chr =~ /\p{IsDigit}/;
$chr = "junk";
print "$chr is not a digit.\n"if $chr =~ /\P{IsDigit}/;
print "$chr is not a control character.\n"if $chr = ~ /\P{IsCntrl}/;