Somewhat unrelated, it's neater to say:

print "42" =~ /^[[:digit:]]+$/ ? "42 is a digit" : "42 is not a digit"
+;
[download]