sub get_long_count {
    my ($dd, $mon, $yyyy, $bc) = split /-/, $_[0], 4;