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