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