Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -lw
use strict ;

...
if ( $d =~ /\d{4}-\d{1,3}(?!-)/ ) {
  print "yep" ;
}

Select or download this
```
\d{4}-\d{1,3}(?!-)$
\d{4}-\d{2}(?!-)
```