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

##</code><code>##

>
>
>