Help for this page
C:\>perl -e "if('42'=~ /^[[:digit:]]+$/) {print qq(42 is exclusively d +igits\n)} else {print qq(42 is not a digit\n)};"