my ($dd,$hh,$mm,$ss) = /^(?:(\d\d)-)?(?:(\d\d):)?(\d\d):(\d\d)$/;