2005-111
2005111
2005

##</code><code>##

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