Select Code to Download

use v5.14;
use warnings;
...
  die unless $stop--;
  exists $DONT{$_} and die "$_ forbidden" for $1,$2;
}

INPUT: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2
+4 25 26 27 28 29 30 31 32 33 34
(?!(?:31|1|15|16)\b)
...
27 28
29 30    # <-- no 31
32 33    # <-- no 34