if ($result =~ /^(3|33|5|17)$/) { print "it's there\n"; }