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