my ($year, $num) = ($_ =~ /^(\d{4})-?(\d+)$/);