Help for this page

Select Code to Download

Select or download this
```
2005-111
2005111
2005
```

Select or download this

$a = $some_date ;
if ( $a =~ /\d{4}-?\d{3}?/ ) {
    ....
}