Select Code to Download

use strict;

...

my $num = "34";
print "Found it!\n" if $num =~/[$z8]/;

Invalid [] range "6-3" in regex; marked by <-- HERE in m/[10-374,376-3
+ <-- HERE 79,382-385,388-499,530-534,541-543,618,619,700-704,707-709]
+/