Help for this page

Select Code to Download

Select or download this

print "$_: ", /^\w+$/ && !/^\d+$/ ? 'Good' : 'Bad' for qw[ abc a1c 1b3
+ 123 ];;
abc:  Good
a1c:  Good
1b3:  Good
123:  Bad

Select or download this

print "$_: ", /^(?=.*[a-zA-z])\w+$/ ? 'Good' : 'Bad' for qw[ abc a1c 1
+b3 123 ];;
abc:  Good
a1c:  Good
1b3:  Good
123:  Bad