$set_spec = '1-4,6,9,12-18';
if ($value IS IN $set_spec){
  print "$value is valid\n";
}else{
  print "$value is invalid\n";
}