my ($yr,$mo) = $when =~ /^(\d\d\d\d)-(\d\d)/;
                                        ^