use strict;

# Zone 8 
my $z8 = "10-374,376-379,382-385,388-499,530-534,541-543,618,619,700-704,707-709";

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

##</code><code>##

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]/