Select Code to Download

   /\d{4}-(?>\d{1,3})(?!-)/

for (qw(2005-12 2005-100 2005-1- 2005-12- 2005-123- 2005-1000)) {
    printf "%-10s: ", $_;
...
      print "nope\n";
    }
}

   /\d{4}-(?>\d{1,3})(?![\-\d])/