String Perl

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}/;