Select Code to Download

#!/usr/bin/perl

...
    $have =~ /(\d+)-(\d+)/ ? $1 <= $n <= $2 : $have == $n) ? '' : ' no
+t';
  print "$n is$not in set\n";
  }

1 is in set
4 is not in set
42 is in set
17 is not in set